Getting 




■ ■ 



FbV those C3«p#rs' who H we: %o$0£ 
or riayfcM^ never used a disk driv^ y^u wi>|i; 
basic introduction to the hand.Wn# ,e^ii*to«$$£f &tf& 
<Sx&&BKtj0* A revievi q*f thiia to)^ 
e^r^oneU Once thii Is dor*> «hH d* flt^?^^ 
rt^ ctofse at the be#nnin# o^ 

lrRe:i -CAlso see BA&IO curr ic^W#") rtb^ujj#; 1 andl.^ItOt 




!♦ ..G#j^5 should take turrtV plying cm# o# the typ i*ig< ST^f#B 
ava i 1 atol^ at cart p ♦ Both MASTER T#fe ahd : TYPti ATTACK 
sent in 1 arge quant i ties* This #j^t iy fttt$ ^f^u^e- .aW* 
frts % teuyfe*aris- presence* but ittl i r aqO-fcr^f ' 4$$ • i^tV:c^^^^M;#V a^K'd' 
imf y^ way wish to u?e ii as a , ' 1 s i de; ( a«*r : ^i qfe:" " ^ 
d^fteiv smg&ivi ties are in progress* 



2;*. Ch|t the campers to run $hje^ PERSONAL proqr&rt $o >tti^ th$§ 

acquainted with .eactfv < p tftar ♦ Wi* pvo^t&n 6&h be 
found on the BASIC UTILITY DISKETTF * Instructions are 
included in this packet ♦ 

3;v Teach cawpers (those who don't, alMsdy know) how to 
format and write DOS to a^ftlattk- '^^ke^&V They will n@ad to- 
dp" mis before you' can ' 



4. Show caMpers the Xrbrary setup and explain the checkout 
systen* Pass out the library cards* Stuff binders* 

§? Give- embers at> early initial ^5<per ience with the BANK 

wprd processor so- that they can begin to write 



letters ho«e* 



r 



Other software that c a &p e r s sho^l ^ 9 et g^p a ^£d t q 
sb«etiHe during their stay af caHipf; Cduirvirig £&%&hi : mz- 
assistant workshops on Tv0#^^ 

PAINT 

H»lr^ Pf liri^ Manager 



Odell Lake <Ele*ierit#ry 
Magic M'tfSbdy Box 
An Adventure gane 



Other itews of .interest for campers to be ^xpps^d to inciud^t 



- 



Topo Robot 

Alien Uoace Synthesizer 
Four Color Plotter 

The camera for , taking screen pictures* 



INSTRUCTORS' INSTRUCTIONS FOR "PERSONAL M 



Personal is actually three programs in one* Instructors will 
only use the second of these three to dump the campers data 
onto the wain data disk and to load a random record for the 
MYSTERY PERSON program* Campers will use the other two to 
enter data and to search for their random person off of the 
main data disk* 



RUNNING THE PERSONAL PROGRAM * 

It Make sure the campers' computers and disk drives are all 
turned off* 

2* Have them insert the ATARI BASIC Language Cartridge into 
the left-hand cartridge slot in the computer* 

3* Campers should now turn on their disk drives* When the 
busy light goes out* have them open the disk drive door and 
insert the program diskette* with the label in the lower 
right-hand corner nearest them* 

^* Have the campers turn their computers and T*V* sets on* 

5* When the READY prompt appears on their T*V* screens* the 
1 campers should type RUN "D*PERSONAL" and press the RETURN 
key* The program will then load into computer memory and 
start* 

6* The campers can now use the "PERSONAL 11 program by 
answering all of the questions with the appropriate answer* 
until the screen that says "THE END" appears* 

USING THE DATA DUMP ROUTINE 

1* After the campers have finished entering their data they 
will be instructed by the program to report to the instructor 
for an introduction to some new piece of software or 
hardware* 

2* All of the computer screens should now read "THE END"* 

3* To start dumping the data for the room onto the main data 
disk* press the control and 's' keys at the same time* 

^* You will be prompted to insert the data disk and press 

return twice* The program will then dump the campers data to 
the main data disk* 

5* When u Finished" appears on the screen and the busy light 



goes out remove the data disk fron the drive* 

6* Repeat steps 3 t ^> 3nd 5 until finished with the rooM* 

7* When you are finished with the rooM* press the control and 
'e' keys at the sane tine* You will be prompted to insert 
the data disk and press RETURN twice* 

8* Repeat step 7 until finished with the rooM* 
USING MYSTERY PERSON 

1* The first thing the canper should see is the MYSTERY 
PERSON title followed by the words. "PRESS START" ♦ To 
continue forM here the caMper Must press the start button* 

2* The MYSTERY PERSON program will then begin by giving each 
caMper his/her first clue* 

3* When they think they have guessed the Mystery person the 
CBMper should enter the Mystery persons naMe and type RETURN* 

^* At this point the prograM will either let the next canper 
guess who their Mystery person is or it will congratulate 
theM on their correct guess* 

5* If after ten clues the caMpers have not guessed who thier 
Mystery person is* the prograM will print thier naMe followed 
by their suspect's naMe* After a short tiMe a new screen 
saying MYSTERY PERSON will appear* 

6* Because soMe caMpers May finish before others* you May 
wish to have theM play MYSTERY PERSON again by first 
inserting the data disk* then by pressing the control and 'c' 
keys at the saMe tiMe* The computer will choose another 
Mystery person off of the data disk* 

7* To stop the prograM Just have the caMpers turn the 
coMputers off* 



HOW TO USE DATABASE 



INTRODUCTION 



DATABASE is a progrsw that allows you to search the wain 
disk database that was created with the PERSONAL prograM* 
With DATABASE you can either search the disks database or you 
can list it* 

SEARCH DATABASE 

1* Select SEARCH DATABASE fro* the MAIN MENU ♦ 

2* You should now be in the SEARCH DATABASE Menu* 

3* Position the cursor with the arrow keys* next to the 
headings you would like to search through* 

^* Now type the asterisk to tell the computer that this 

is one of the headings that is to search for* 

5* Repeat steps 3 and 4 until you have finished Making all of 
your selections* 

6* At this point you way either continue by pressing the 
START button, or return to the MAIN MENU by pressing OPTION* 

7* If you press START ♦ the computer will ask you to enter the 
headings it is to search for* and then to type return* 

8* After you type return you will be asked if you want the 
computer to search for your heading or everything but your 
heading* What this weans is if you choose to have the 
computer search for your heading it will do just that* search 
for your heading* If you choose for the computer to search 
for everything but your heading* it will search through the 
database and only look for the information that doesn't Match 
your heading* 

9* The computer will repeat step 8 until you have entered all 
the inf or Mat ion for the headings that you selected froM steps 
3 and ^* 

10* The last Menu will ask you if you would like to have the 
people who fit your description* printed out on the printer* 
Choose either print or don't print with the arrow keys and 
then press the START button to continue* 

11* You should now see your description followed by the 
people who Match it froM the database* 




LIST DATABASE 



1. Select LIST DATABASE fron the MAIN MENU ♦ 

2* You will see 3 Menu that looks similar to the «enu for 
SEARCH DATABASE* The difference between the two is that this 
Menu only allows you to Make one heading choice* 

3* Choose one of the headings* This heading will be what the 
coMputer will search through later in the prograM* 

^* The next screen lets you choose between one of the 
following: 1* Having the coMputer search the database for a 
single letter /nuMber ♦ 2* Having the coMputer search the 
database between two letter s/nuMbers ♦ 



5* Enter the letters or nuMbers in the next section* If you 
want to erase your entry press the space-bar* 




6* Next the coMputer will ask you if you want the inf or Mat ion 
printed out on the printer* You May Make your choice by 
first Moving the cursor with the arrow keys then by pressing 
the start button to continue* 

7* The coMputer will now search the database through the 
heading you chose in step 3* It will look for a Match froM 
the entry you Made in step 5* If it finds a Match it will 
list that person's inf or Mat ion on either the printer* the 
screen* or both* depending on what you chose in step 6* 



(2) 



HOW TO USE DATALINK 



DATALINK is a program that was created to join the Many 
classroom database's into one wain camp database* 

!♦ To get started you will need two drives* the disks with 
the classroom database on them* and the DATABASE/DATALINK 
program disk which will be used to store the Main database* 

2* To run the DATALINK program, insert the DATABASE/DATALINK 
disk into drive #1* Now type RUN "D t DATALINK" then RETURN ♦ 

3* Remove the DATABASE/DATALINK disk froM the disk drive and 
place the classrooM database disk into drive •i# then press 
return* If the file CAMPER*DAT isn't on the disk the prompt 
"Insert the classroom database into drive #1" will repeat* 

4* Now put the DATABASE/DATALINK disk that will hold the main 
database into drive #2 and press return* If there isn't a 
CAMPER ♦ DAT file on this disk* the program will create its 
own ♦ 

5* The program will now transfer the CAMPER*DAT file from 
drive *1 to drive *2* 

6* Next the prompt "Would you like to add another classrooms 
data <Y/N)" will appear* If you wish to stop now type 'N'* 
If you have More data to store in the main database then type 
'Y'* The program will then repeat steps 2 through 5 until 
you have finished* 



DATABASE STRUCTURE! 



The following is 3 brief explanation on how the 
database ♦ "CAMPER ♦DAT" is structured ♦ 



CAMPER*DAT is a simple database* It is not alphabetized 
or indexed* It contains the inf or nation which was entered 
with the PERSONAL program in the sane format* What this 
Means is that the information for each person on the disk is 
arranged in the sane way as it was entered* With the persons 
nsfie first followed by there address* city* state* etc*** 
This continues until you run out of data* 

Database format 

Name 
Address 
City 
State 
Zip 
Age 

Hair color 
Eye color 
Sex 

Favorite color 
Favorite singing group 
Favorite song 
Favorite movie 
Favorite T*V* show 
Favorite food 
Favorite sport 
Favorite game 
Favorite animal 

The following is a program that will allow you to list the 
database * 

10 REM ***LIST DATABASE*** 

20 DIM TEMP$(30 ) tREM Each record is 30 characters long 
30 OPEN *1*4*Q, m D*CAMPER*DAT ,i :REM Open file for input 
^0 TRAP 8 0 

^5 REM Print database 
50 INPUT #1;TEMP*:REM Input record 
60 PRINT TEMPSiREM Print record 
70 GOTO SOtREM Repeat until end of file 
80 CLOSE *1*END*REM Close file 



outline: for book i 
atari summer camp curriculum 1983 



SESSION MATERIAL 

1 Unit it General introduction* 

2 Un it i ♦ Exp I ore s i mu 1 at i ons ♦ 

3 Unit 2* The robot turtle and the screen turtle* 
Running through Mazes in PILOT using GO and TURN* 

4 Unit 2* Drawing with the turtle* Creating and 
saving abstract designs using DRAW* TURN* CLEAR* 
PEN COLOR* RUN * SAVE* LOAD* LIST* NEW* 

5 Unit 2* Modules* RenuMber your design and give 

it a label* Then Use it in different places on the 
screen and in different orientations* Do the sawe 
with other designs* Repeat one of the designs on 
the screen with an infinite loop* 

6 The Bank Street Writer* 

Write a letter hoMe* possibly including output on 
the printer/plotter* Continue exploration of 
turtle graphics* 

7 Unit 3* Music composition ♦ 

8 Unit ^* Cremating Music phrases* 

9 Explore other Music software* 

10 Unit 5* Text and large text* 

11 Demonstrate previous student projects* 

Explore the* voice synthesizer* 

12 Unit 6* Repetition and syMMetry* 

Squares* triangles* polygons* stars and 
sp i r o 1 a t er a 1 s ♦ 

13 Unit 6* Variables* 

Squares* polygons* and stars of various sizes* 

14 Unit 6* Interaction* 

Ask questions about how big a design should be* 

15 Unit 6* Square spirals* 

DynaMicly change the values of variables in loops 
to create spiral patterns and explore the use of 
var iables ♦ 

16 PAINT* Explore the PAINT prograM as another 

app roach to graphics* 

17 - IS Finish projects* Sequences of Mixed 

graphics* sound* and text Modules* 
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BOOK 1 OVERVIEW 
ATARI SUMMER CAMP CURRICULUM 1983 



This book has been designed to introduce campers to the 
computer 3s an artistic and expressive medium as well as a tool 
for computation and information processing* It is divided into 
units* each centering around a group of concepts* Seme of these 
concepts spring naturally from computer science* while others have 
grown out of other disciplines* Many of these concepts will 
reappear in later units* This is intended to let the campers 
absorb new ideas gradually and see how they interact in different 
contexts * 

Elach unit presents a series of activities through which 
campers can explore applications of each concept* A rough 
estimate of the time these will take is suggested sst the beginning 
of the unit* Challenges are presented for those who move through 
the material quickly or already have some experience with the 
concepts being covered* Each unit. also includes teaching tips for 
helping camper having difficulty* 

The first two units are intended to familiarize campers with 
the computer and introduce them to programming through the 
creation of simple graphic designs using turtle graphics* Through 
these activities the campers become familiar with the notion of a 
program as a sequence of instructions stored on 'disk that can be 
loaded into the computer and followed* Campers learn to create 
their own sequences of instructions* and debug and edit them to 
get the results they want* Instructions are grouped together as 
modules for repeated use in varying circumstances* 

Units 3* ^* and 5 cover the use of music and text in PILOT 
and combine these with graphics to present short compositions* In 
the process a structured approach to programming is reinforced 
through the continued use of modules* Campers experience the use 
of a variable in controlling the tempo at which music is played* 

Unit 6* the final part of book 1* returns to graphics to 
expose the campers to broader uses of variables* interaction* and 
repetition* During this time campers combine what they have 
learned into short projects* Throughout the curriculum campers 
broaden their experience as users of the computer by writing 
letters home? with a word processor* creating their own music and 
art with various software packages* and exploring peripheral 
devices including a* voice synthesizer* a plotter* and a robot 
turtle ♦ 
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E> «ra« o l<. 3. U "fcr i 1. :i. fc O :L s 

n~3*- m D« *n* e?s r* ± R "fc. :i. o« r~« 



13 :L n- @> «t:z* ^ ■□> t- 'hzf 



T h i s d i s k c o n t a i n s A t a r i C o m p « j t a r Can p B □ o k I C u r r i e u 1 u m 
software and program exsMples* This disk is not to be 
duplicated and is to be used only with Atari Cowputer Ca«p 
c u r r i c u Ium a n d a s s u c h i s t o b e k e p t c o n f i d e n t i a 1 ♦ T h e 
programs on the disk are written in PILOT II* 

SOUNDEMO* MAZE! A* HAZE IB ♦ HAZE2A ♦ MAZE2B * and STRUM are 
sp ec i f i c cur r i cu 1 um r e 1 at ed sof twsr e ♦ 

DESIGN * PICTURE* ARC* SONG * SHOW ♦ HUSTLE, CLOSER, HUSTLER,' 
SPIRQ, SPIROS* STARS, SQUIRAL ♦ and SPIRSQUI are examples of 
proqraMS that can be created with the curriculuM activities 

VICKY * L A U R A ♦ ART * WEB* LESLIE* TRIANGLE* BUBBLE* ROCKET* 
ZOLTAR* SPSHIP, and MASTER are examples of projects done by 
P r e v i ous students ♦ 
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Notes to the Instructors 



o save to the disk 



PILOT 



SAVE D: NAME 



BASIC 
SAVE" D: NAME 



To run a program -from 
di sk 

To load -from the disk 



RUN D:NAME 



LOAD Ds NAME 



RUN 11 D: NAME 



LOAD M D : NAME 



To list to the printer 

To save a piece o-f a 
program 



SAVE P: 



SAVE D: NAME line#,line# 



LIST "P: 



LIST 11 D 8 NAME" . line#„ line# 



To retrieve same piece 



MERGE Ds NAME x 
or APPEND D: NAME 
(APPEND renumbers the appended 
program to -follow the current 
pr ogr am ■ ) 



ENTER M Ds NAME" (ENTER merges 
the text with the current 
program- ) 




To use the Epson printer -for (picture) screen dumping the computer must be 
turned of-f, insert the macrotronics disk, turn on the computer., when 
question is asked PRINTER (0-4)? type 3. Remove disk and load the program 
you wish to copy. When picture i s on screen and stopped on screen, type 
CTRL P. 
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Book 1 Unit 1 Introduction to Campers and CoMputers 
Tiwe - 2 session 



Key Concepts 

Introduction to the computer 
Introduction to instructor s 
Introduction to each other 



Prerequ isi tes 



New Statements 

LOAD 

FUJN 

NEIW 



Mater ials 

Persona 1 progrsM d i sks 
E-iASIC car tr idges 
Notes to the Instructors 
Computer Novices information sheet 
Instruction sheet for personal and mystery person data 
base 

Control Graphics Keyboard Picture 
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Book 1 Unit 1 



Activity Outline 

1 ♦ Instructors should introduce themselves to the 
caMpers in the class* 

2* Cover the Material in the Computer Novice insert* 

3* Have caMpers insert ATARI BASIC cartridges into 

their computers and then RUN the PERSONAL program 
on the Personal program disk* Follow the 
instructions on the personal program instruction 
sheet for using the PERSONAL and MYSTERY PERSON 
program ♦ 

■ 

^* Explore the simulations Ode 11 Lake and Factory* 
Exp lore adventure games ♦ 
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Book 1 Unit 1 



Challenges 

Explore More adventure gawes* 

Teaching Tips 

Be sure to eMphasixe the use for the RETURN key* 





7 

Copyright Atari, Inc., 1983. All rights reserved. 



COMPUTER NOV ICES 

PURPOSE! To introduce computer novice camper* to the 
microcomputer with 'hands-on' experience as quickly am 
possible. 

Day 1-<1 hour session) 

Tell campers a little about the microcomputer. 

a) Identify the hardware pieces, especially explain that 
the 'computer' is in the plastic case with the keyboard. 

Show a chip and poster of enlarged circuitry. Explain 
that this development is what makes the microcomputer so 
small. 

b) Talk about the ENIAC. The EN I AC wa£ developed in 
1947 f it was the size of six large school buses and 
broke— down every 15 minutes. The Atari micros used at camp 
are more powerful and (do not break-down) are more reliable. 

Have computers and peripherals hooked— up, with BASIC 
cartridge at hand for campers to insert into left-slot of 
opened door on computer. 

* 

Explain that this cartridge is used in the computer when 
we want to use a computer language. The one we will be using 
today is BASIC an acronym BASIC - Beginners All-purpose 
Symbolic Instructional Code. 

Other languages will be used throughout the camp 
experience. 
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COMPUTER NOVICES 

i • • •• 

Show a disk and a tape. Explain that these are used to 
save the set of instructions given to a computer (called a 
program) to make it perform specific tasks. 

Give specific instructions on the proper handling of 
disks and tapes. (Don^t touch oval opening of disks, take 
care about setting disks or tapes near magnets. There are 
magnets in the monitor, the power supplies, and the 
telephone. ) 

Have campers insert BASIC cartridge into left-hand slot 
of computer. 

BOOT COMPUTERS 

a) Everyone insert disks (push button to open door, pick 
up disk with oval cut away from you, slide in until disks 
stops, close door) . 

b) turn on the disk drive by pushing the switch on the 
front of the drive (two red lights come on, whirring sound is 
heard and then stops) . 

c) turn computer on by pushing switch on the right side 
of the computer - there are two switches on the right, one to 
turn the computer on or off - one to change the T.V. choice 
when using a T.V. 

d) turn on monitor 

e) describe what is happening; be sure to mention that 
this action is called booting the disk. 

* 
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COMPUTER NOVICES 

Spend the next -few minute* (estimate 15) exploring the 
keyboard, * 

a) type in the word BYE - press return (the user muit 
press RETURN whenever they are finished typing a command). 
The screen should say ATARI MEMO PAD. Explain the use (job) 
of the cursor. 

b) type in own name (keyboard is same as a typewriter 
with a few additional special keys) 

c) introduce back space key — use for erase 

d) introduce upper/lower key uses 

e) introduce CTRL key for keyboard graphics 

f> introduce CTRL to move cursor without erasing 

g) introduce ATARI key for reverse video 

h) draw a picture using the graphic control characters 
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E'.ook 1 Unit 2 Introduction to turtle graphics 

Estimated tine: 3~4 sessions 



Key Concepts 

A program as a sequence of instructions 
Relative and absolute trutle instructions 
Angles 

Modules i 



Prer e q u i s i t e s 

General knowledge of keyboard 

Knowledge of LOAD f RUN* and NEW statements 



New Statements 

GO TURN DRAW GOTO TURNTO 

U \ >kNAME CLEAR PEN COLOR PEN UP PEN DOWN 

j:*lae:el e: same list ren- 



Materials | 
PILOT Disk: MAZE1A, MAZE IE'. t MAZE2A f MAZEZEi 
Robot turtle and maze 
T u r t 1 e d r a w i n g w o r k s h e e t 
Atari PILOT grid sheets 
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Book 1 Unit 2 



Activity Out 1 ine 

1* Use the robot turtle to illustrate relative notion 
in a physical context with the GO and TURN 
commands* Build a Maze and have the group navigate 
the robot through it* 

2* Have each camper run a screen turtle through a Maze 
using GO and TURN ♦ 

3* Have the campers explore what images can be created 
using DRAW* GO* and TURN with the screen turtle* 

4* Introduce the idea of a stored program* Have each 
camper create a short program to draw a snail 
design and save it on their disk* 
Example: DESIGN 

5* Give the design a * label and then use GOTO and Ui 
to place the design in different places on the 
screen* Also (explore different orientations and 
the use of TURNTQ* 

Example* PICTURE 

6* Use the Turtle Drawing worksheet to further explore 
drawing with the turtle* As campers run into 
difficulty drawing these images* introduce simple 
debugging and editing notions* In particular have 
them try walking tr hough their instructions as if 
they were the robot turtle* telling their 
instructions to a friend to trace through* and 
using the START key to step through a program* 

7* Show campers how to repeat one of their designs on 
the screen with an infinite loop* 
Example* ARC 

8* Use the 1020 Pr inter /Plotter to display the 

camper's graphic designs and dump listings to it 
and other printers* 
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Book 1 Unit 2 



Challenges 

1 ♦ Try Maxes with acute and obtuse angles* Try 
drawing Mazes for each other to follow* 

2* Make More involved designs using Modules within 
Modules ♦ 

3* Experiment with different colors for pens and for 
the screen background* Experiment with FILL* 
SHADE * and PEN ERASE ♦ Experiment with SPEED ♦ ♦ 
Make a design change colors or flash on and off* 

4* Exp eri Ment with different Modes and with full or 
split screen* Change colors using SETCOLOR* 



Teaching Tips 

1* For campers having difficulties with angles it 

Might be easiest to work only with right angles at 
first* 

2* Using negative values after TURN for left turns May 
Make theM easier to understand* 

3* SoMe caMpers May have difficulty with negtive 

numbers and coordinates* A little practice finding 
points on the Atari Pilot grid sheets should help* 
Using negative values with DRAW and GO may Make it 
easier to draw some figures on the worksheet like Y 
and E* 

5* If campers get stuck have theM play turtle by 

putting themselves in the turtle's position and 
orientation and figuring out in terMS of their own 
bodies how far to turn and in which direction* 

6* Using DRAW and GO to draw figures that 
close can be quite difficult* CaMpers 
trying to draw block letters May find it 
helpful to draw a grid over the letter to 
Make it easier to deter Mine relative 
lengths ♦ 



Cross Reference 

A* Manuals ♦ Student PILOT pages 17-18* 2.6-29 p and 5*3-83 

PILOT Primer pages 55-56* 95-98* and 115-138 

B ♦ Books ♦ P i cture This 

Turtle Geometry 
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TURTLE DRAWING 



Here are some shapes to try to draw: 



Symbols : 



+ 





Block letters 



Challenges : 



o 






w 



• - 



J 



EYK 




a a 
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Book 1 Unit 3 MUSIC COMPOSITION 

Estimated Time: 1 session 



Key Conceptsi 

Organization o-f phrases in musical composition 
Tempo of musical phrases 
Changing the value o-f a variable 
Sound e-f-fects 



Prer equi site Statements: 

U:*NAME NEW LOAD LIST RUN 

E: SAVE 



New Statements: Examples: ! 

C:#T C:#T=5 

Materi al s: 

PILOT Utility Disk: SOUNDEMO 
PILOT Cartridge 

Introduction to Sound worksheet 
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Book 1 



Uni t 



Activity Outline: 

1. Introduction to sound worksheet. 

2. Encourage campers to edit the programs they create- 
Some may want to assemble Yankee Doodle- Others will 
prefer to create their own compositions. Both approaches 
are -fine- Encourage them to explore how different phrases 
sound next to one another. 

Example: SONG 



3. While exploring di-f-ferent tempos be sure to try some 
fast tempos. Setting #T=2 ? 1, or 0 will tend to play 
interesting sound effects. 
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Book 1 Unit 3 j 
Challenges: 

1- Explore the effects of changing tempo within a song 
(between modules. ) 

2- Encourage the building of modules that use other modules 
For example: 

*WHIZ 

C:#T=*1 
U:*UP 

U:*TRILL 

U:*DOWN 

E: 

creates an interesting sound effect. 



Teaching Tips: 

1. The concept of a variable can be difficult to understand 

the first time it is encountered. Let the campers experiment 
with setting #T and noticing the effect before explaining 
the use of this variable in the sound modules. Theoretical 
explanations of variables in general should wait until camper* 
encounter other uses of variables in modules 7 and 8. 



2. Some campers may create loops by calling a module they are 
currently in. For example: 

*WHIZ 

U:*UP 
U:*WHIZ 

(or including U:#WHIZ as part of #UP. ) 
These are both examples of recursion which is not 
supported by PILOT and will result in a U: TOO DEEP 
error after a few loops. Do not i ntensi onal 1 y direct 
kids into this, but if it happens have them trace through 
the program to see what is happening. Each time PILOT 
executes a U: statement it must remember where to return 
to. While using *TRILL as part of *WHIZ above it must 
remember where to go after #TRILL and where to go after 
the E: in *WHIZ. In a recursive loop it has to keep 
remembering more places to return to. PILOT will only 
remember twenty four places at one time. 



Cross Reference: 

A. Other Modules: 

B. Software: Music Composer also allows you to explore 
changes in tempo and the order of musical phrases. 

C. Manuals: PILOT Primer page 105 

Student PILOT page 35 



■ 
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INTRODUCTION TO SOUND 



LOAD D:SOUNDEMO (To LOAD__a program from the disk - insert 
the disk into the drive / if drive is off turn on drive , then turn 
on the computer_J7 first type NEW and press the RETURN key, 
next type LOAD D:SOUNDEMO and press the return key). 

You will be experimenting with sound and the computer. 
The program that you have LOADed into the computer has several 
modules preprogrammed for you to use. 

To use these modules you must give the computer a command 
that will assign a length of time for each note to be held. 
This is done by using the Compute command which will assign a 
length of Time for the PAuse. The prodedure is as follows: 

C:#T= 



Any number may be added to this equation. Try 12 to start. 

Using the immediate mode try the following: 

C:#T=12 
U:*UP 
U:*PONY 
U:*TRILL 

Now try these other sounds: 

*UPDOWN 

*RONI 

*CHEESE 

*DOWN 

*TUNA 

Put several modules together in a short program. 

* 

For example: 10 C:#T=12 s 

20 U:*UP 
30 U:*TRILL 
40 U:*DOWN 
RUN 

Try changing the tempo like this: 
10 C:#T=7 

Try other numbers for tempo. 
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Book 1 Unit 4 CREATING MUSIC PHRASES 

Estimated Time: 1-2 sessions 



Key Concepts: 



Timing 

Pitches, notes, and chords 
Repetition and infinite loops 



Prerequi si te Statements: 



Us *NAME 

C:#T= 

E: 

J: 



CLEAR 
GO 

DRAW 
GOTO 



FILL 

PEN COLOR 
TURN 



NEW 

LOAD 

TURNTO 



RUN 

SAVE 

LIST 



New Statements: 



Examples 



SO: 



SO: 20 



PA: 



PA: 50 



REN 



REN 



Mater i al s: 



PILOT Utility Disk: STRUM 
PILOT Cartridge 

Writing your own tunes worksheet 
Copies of PILOT Primer pages 105-109 
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Book 1 Unit 4 



Activity Outline: 

1. Writing your own tunes worksheet. 

2. Help campers create their own phrase modules. Direct 
campers -familiar with music to PILOT Primer pages 105-109. 
A group o-f campers may want to split up the task o-f 
entering a song by each writing one phrase. 

3. After their song programs are running show campers how 

to play a song i nde-f i natel y using J: to create an in-finite 
1 oop . 

Example: HUSTLE 

4. Try using several computers at once to play music together 
as a group. For example, a program could be written to play 

a round such as Row, row, row your boat. Then several machines 
could be loaded with the program and each one could start playing 
when the machine next to it started on its second phrase. 

5. Help students integrate sound and graphic components into one 
program. Saving and renumbering parts o-f a program may be needed 
at this point. 

Example: SHOW 
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Book 1 Unit 4 



Chal 1 enges: 

1« Encourage campers to use #T instead of constants in 
the PAuse statements in their phrase modules so the 
phrases can be played at different tempos- Computation 
can be used in the pause statement to get notes of di-f-ferent 
1 eng t hs ■ 

2. Explore relative musical notation and combined note and 
duration in one statement. 

3. Interesting beats can be created using sound effects 
seperated by PAuses. 

4. Some campers may want to explore putting various guitar * 
chords together for songs. The STRUM program on the PILOT 
utility disk may be of interest to these campers- 



Teaching Tips: 

1. It will be hard in general for campers with limited 
musical experience to create pleasant sounding chords 
and songs without extensive and perhaps frustrating 
experimentation. After some brief exploration of notes 
they may prefer to explore more sound effects or timing 
applications to go with their graphics. Interesting 
rythms can be explored by alternating brief notes with 
PAuses of various lengths and repeating with J:. Other 
interesting sound effects can be created by playing two 
consecutive notes, SO: 2,3 for example. 

2- Some campers may have problems getting songs with notes 
of different lengths to sound right at different tempos. 
Changes in tempo should involve proportional changes 
in the duration of notes. This means that all durations 
<i.e. PAuses) should be represented as multiples of 
the basic tempo unit #T. 

PA: 20 PA:#T*2 
SO: 14 SO: 14 

Thus, PA: 40 should be changed to PA:#T*4 

SO: 12 SO: 12 

PA: 10 PA:#T 
Using addition, subtraction, division or modulo may 
produce interesting results but will not effect proportional 
changes when #T is changed - 



Cross Reference: 

A. Other Modules: 

B. Software: Music Composer can be useful in creating your 
own sounds and rythms. 

C. Manuals: PILOT Primer page 105 

Student PILOT page 85 
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Book 1 Unit 5 



PILOT Music, Text and Graphics 



Estimated Time - 1-2 cl ass . sessi ons 



Key Concepts 

Putting music, graphi 



cs and text together 



Prer equi si tes 
LOAD 
U: 
Et 

SAVE 
- DRAW 
SO: 



RUN 
GOTO 
C:#T 
GO 

FILL 
PAt 



NEW 

PEN COLOR 
TURN 
TURNTO 
LIST 
CLEAR r 



New Statements 
T: 
A: 



Ex amp 1 

TrTry typiirg this 
wait until user r 
LETTERS : LARGE 



statement, 
onds 



Materials 



PILOT cartridge 




i 
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* 



Activity Outline 



la Campers will add a short story to their previously 
programmed music/graphics program. Using A: to 
keep text on the screen until user wishes to move 
ahead . 

Example: HUSTLER 
Some campers may -find it -fun to create programs like 
HUSTLER -for the robot turtle. 

2. Add title pages to the stories using LETTERS: LARGE. . 

Example: CLOSER 

3. Music, graphics and text should be intertwined. 

4. At this point campers are ready to start creating larger 

projects combining sound , text, and graphics. They will 
continue working on these projects through the rest o-f 
this book. The following examples created by previous 
students can be used to help stimulate their imaginations 

l_ EE! SB i_ I El 

TRIANGLE 

V I CKY 

LAURA 

BUBBLE 

ROCKET 

ZOLTAR 

SPSHIP 

MASTER 
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Book X Unit 5 



Chal 1 engea 



1. Have the campers create pictures on the screen 

using Tt and character graphics. 

2. Explore the patterns that can be created on the 

screen by printing graphics characters in an 
in-finite loop. For examplei 

*PATTERN 

Ti /\ 

Jr *PATTERN 

Have the canpen tr* to figure out how to create sont 
of these designs! (possible solutions) 

diagonal lines 

diagonal lines ///#/ / / / f / / / 



boxes Q I I 1 I 

— „ „ Vl — . LJ l_J f 

square waves r] ( [ pi I I ' in I 

I ■ i 

boxes with circles I m x \ ' ' | 

"'n-T^ ' 



I 



Teaching Tips 



1. PILOT avoids breaking words when using the T: 
command. A \ may be used to continue text on 
on the same line. 

Cross Reference 

■ 

Student Reference Guide pages 8—11 
PICTURE THIS!, David Thornburg, 
pages 105 - 106 
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Book 1 Unit 6 



Turtle Graphics 



Estimated Timet 4-6 sessions 

Key Concepts 

Repetition and symmetry 

Variable size and position, proportion 

Interactive programing 

Dynamic use of variables 



Prerequisite Statements J 

u:*name e: 
a: turn 
clear turnto 

RUN NEW 



j:*label 

GO 

LOAD 



c:#t 

DRAW 
SAVE 



t: 

GOTO 
LIST 



New Statements 

Repetition 

c: 

a:*s 



Examples 

5(DRAW 10JTURN 36) 

c:*s=zo, c:*s=*s+i 
a:#s 



Mater ials 



PILOT 

Drawing Stars and Polygons worksheet 
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Book 1 Unit 6 

i 

Activity Outl ine 

0* These activities give the campers a brief exposure 
to several important concepts* Time should ho? 
allotted between the parts of the activity for the 
campers to absorb and experiment with the ideas and 
incorporate then in their projects* 

1* Have the campers individually or as a group show 
you how to draw a square* Then point out the 
• repeated use of the same instructions and introduce 
graphic repetition in PILOT ♦ For example ♦ <\ ( DRAW 
15JTURN 90)* Then have the campers create modules 
of their own using repetition* Encourage them to 
explore the effects of repeating different turtle 
commands* Once they have a module they like have 
them create designs by using the module at 
different places and orientations on the screen* 
Example: SPIRQ 

2* Write down a module to draw a square* 

xSQUARE 

4 (DRAW 15 J TURN 90) 

E* 
* 

and ask the campers what to change to make a 
smaller square* Point out that the 15 in the above 
module determines the size of the square and try 
changing it to #SXZE ♦ Then use C**SIZE= and 
U**SQUARE to draw squares of a couple different 
sizes* Have the campers use GOTO ♦ C**SIZE~* and 
U*>kSQUARE to see what they can represent on the 
screen using only squares of different sizes* Then 
have them incorporate a size variable in the 
modules they created before and see what they can 
create on the screen using only that module with 
different sizes ♦ positions ♦ and orientations ♦ 
Example* SPIROS 
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Have c3Mpers incorporate interaction in their 
programs letting the position and size of their 
shape be determined at run time* First demonstrate 
how the value of iSIZE can be set with AJ*SIZE like 
this* 

3KQUESTI0N 

T ♦ WHAT SIZE SHAPE DO YOU WANT? 

a: t size 

uj*shape 
j i ^question 

Then have "the campers incorporate this in their 
programs and figure out how to ask for position as 
well* 

Example; STARS 

With the class as a whole take another look at 
polygons and stars with this program* 

10 PEN YELLOW 

20 CJ*SIZE*20 

30 xAGAIN 

40 DRAW tSIZE 

50 TURN 9 0 

60 j;«AGAIN 
Have the class experiment with changing the amount 
the turtle turns and have them discuss which values 
give the simplest results* After experimenting 
with this for a while show them what happens when 
you change the length of a side dynamic ly like 
this* 

55 C:*SXZE«*SIZE+1 
Then let them experiment with different spiral 
patterns that can be generated this way* 
Examples* SQUIRAL 

SPIRSQUI 

Encourage the campers to incorporate some of these 
ideas into their projects* 
Examples: ART 

WEB 

MASTER 
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Cha 1 lenges 

Have several students Make up repeated patterns* 
Draw the patterns on the plotter* Have the 
students trade patterns and try to figure out what 
is being repeated and how the pattern was 
gener ated ♦ 

More complex patterns can be created by "nesting" 
repetition* For example 

4CG0 5J3CDRAW 20 J TURN 120);TURN 90)* 

Try negative values for size* Give campers the 
Drawing Stars and Polygons worksheet* 

In exper imenting with spiral patterns try using 
several DRAWs and TURNs* For example try changing 
line ^0 in the activity outline program to 

^0 draw *size;turn 30 ; draw *size;turn -30; 

DRAW 2*#SIZE 

5* Try experimenting with dynamicly changing the size 
of the angle* For example change the program in 
the activity outline as follows* 
50 TURN WANGLE 
55 C:*ANGLE=*ANGLE+1 



Teaching Tips 

1* One interesting class of repeated patterns is 

sp ir olater als ♦ These are formed by always turning 
the same amount* For example 

4CDRAW 95TURN 90;DRAW 2 t TURN 9 0 fDR AW 5J 

TURN 90 J DRAW 3 ; TURN 9 0 ; DRAW 1JTURN 90) 

2* If campers get confused by the variable #SIZE have 
them make different sized squares directly for a 
whi le : 

4(DRAW 8;TURN 90) 

4CDRAW 25 J TURN 90) 
Let campers get comfortable with how changing the 
amount you draw affects the size of the square 
before generalizing this with the variable 41-SIZE* 



i . 

2. 

3. 
4« 
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3* Pictures with sides of different lengths will need 
to change proportionally when they are drawn in 
different sizes* This Means that each DRAW 
statement should he followed by a multiple of 
tSIZE* For example, the block F in Unit 2 Might 
start with DRAW *SIZE*5 JTURN 90JDRAW *SIZE*3* Sorie 
canpers nay have a probleM with this* Let theM 
experiment with several solutions before helping 
theM focus on Multiplication as a useful approach* 

*K In part 3 of the activity the question 3hout where 
the shape should go should be split into two 
questions; how far over, and how far up* 

5* If caMpers are confused by how the spiral patterns 
work* try stepping through the prograM with the 
START key* This will allow you to see how the 
lines get longer as *SIZE changes* The value of 
#SIZE can be checked any time by typing T:#SIZE* 

6* It is not expected that the canpers will have a 

coMplete understanding of all these concepts at the 
end of two weeks* Many of theM will not even be 
able to begin to solve the problems in the 
challenges* However ♦ through these exercises they 
can begin to explore the asthetic capabilities of 
the computer* Much as an artist can explore 
acrylics without under standing the cheMistry of how 
they work* They can also begin to appreciate the 
power that is achieved through the repetition of 
siMple instructions and the Manipulation of 
variables* Further adventures in prograMMing 
should help theM learn to harness soMe of this 
power* At this stage the priMary objective is to 
explore thfc effects of this power 3ncL begin to 
grasp sone of the rudimentary operations behind it* 



Cross Reference 

A* Other Units: 2 Turtle Graphics 

Proportion and variables 

B ♦ Manuals: PILOT Primer pages 115-138 

Student PILOT pages 55-83 

C* Books Picture This 

Turtle GeoMetry 
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DRAWING STARS AND POLYGONS 



This program draws a hexagon: 



*HEX 



GR 
E: 



6 (DRAW 20; TURN 60) 



What happens if we change TURN 6 0 to TURN #A? 



Make the change and then try some different angles like this 



GR: CLEAR 

C:#A=50 

U:*HEX 



After you have experimented with several angles try .to write 
modules to draw some of these figures: 










Extra challenges: 
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ARC 

10 PEN YELLOW 

20 GOTO 20,5 
a 30 U: *DESIGN 
W 40 U: *DESIGN 

50 U:*DE5IGN 

60 U: *DESIGN 

70 GOTO —15, -20 ; NORTH 

80 U: *DESIGN 
100 GOTO -60, -20; NORTH 
110 *REPEAT 



120 


U: *DESIGN 


130 


TURN 


-85 


140 


GO 1 




150 


J : ^REPEAT 


200 


♦DESIGN 


210 


DRAW 


to 


220 


TURN 


-20 


230 


DRAW 


3 


240 


TURN 


-20 


250 


DRAW 


3 


260 


TURN 


-120 


270 


DRAW 


3 


280 


TURN 


-20 


290 


DRAW 


3 


300 


TURN 


-20 


310 


DRAW 


3 


320 


TURN 


-50 


330 


DRAW 


3 


^ 340 


TURN 


-20 


w 350 


DRAW 


3 


390 


E: 
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ART 

10 *SQUIRAL 

20 CLEAR; GOTO 0,0;TURNTO 0 
30 C:#SIZE=0 

40 T: WHAT ANGLE WOULD YOU LIKE?\ 
50 A: #ANGLE 
60 GR: PEN RED 
80 *DRAWLINE 

90 GR: DRAW #SIZE;TURN #ANGLE 
100 GR: DRAW #SIZE;TURN 90 
110 C:#5IZE=#SIZE+1 
120 J:*DRAWLINE 
130 E: 



i 
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BUBBLE Page 1 



10 
20 
30 
40 
50 



U: * INTRO 

Us *BUBBLEMAN 

Ul *BUBBLES 

U: *CAN 

U: *SOUNDS 



60 E: 

70 *SOUNDS 

80 C:#Q=40 

100 SO: 13,25 

110 T: HELLO, liY NAME IS MR. BUBBLE. 

120 PA:#Q 

130 SO: 15,27 

140 T:I AM HERE TO TELL YOU ABOUT BUBBLE JUICE. 

150 PA:#Q 

160 SO: 29, 17 

170 PA:#Q 

180 SO: 15, 27 

190 PA:#Q 

200 PA: 100 

210 SO: 17,29 

220 PA: 100 

230 T:THIS DELICOUS, NUTRICOUS, BAMBICOUS, TASTE WILL KNOCK YOU OUT 

240 PA: 200 

250 PA:#Q 

260 SO: 18, 30 

270 T : SO 

280 PA:#Q 

290 SO: 17,29 

300 PA:#Q 

310 SO: 18, 30 

"320 T: BUBBLE JUICE 

330 PA:#Q 

340 SO: 20, 32 

350 PA:#Q 

360 SO: 18, 30 

370 PA:#Q 

380 T: BUBBLE JUICE 

390 SO: 17, 29 

400 PA:#Q 

410 SO: 15,27 

420 T: YOU'LL LOVE THE TASTE OF BUBBLE JUICE. 

425 PA:#Q 

430 PA:#Q 

440 SO: 13, 25 

450 T: ITS' DELICOUS! 

460 PA:#Q 

465 PA:#Q 

470 E: 

590 * INTRO 

600 LETTERS: LARGE 
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BUBBLE 

600 LETTERS: LARGE 
605 T: 

610 T.-THE BUBBLE JUICE 

620 P0S:3,4 
A630 Ts COMMERCIAL 
™640 PA: 150 

645 LETTERS: SMALL 
650 E: 

670 ^BUBBLES 

680 PENRED 

690 G0T0-20., -30 

700 U: *MEDIUMCIRCLE 

710 PENBLUE 

720 GOTO -60,40 

730 PEN YELLOW 

740 U: *MEDIUMCIRCLE 

750 GOTO -30,30 

760 U : *MED I UMC I RCLE 

770 PEN RED 

780 GOTO-60,20 

790 U: *MEDIUMCIRCLE 

800 PENBLUE 

810 GOTO -30, 10 

820 U: fcMEDIUMCIRCLE 

830 PENYELLOW 

840 GOTO -40,30 

850 U: *MEDIUMCIRCLE 

855 E : 

860 *MED I UMC I RCLE 

870 GR:40(DRAW1;TURN20) 

880 E: 
W 890 *CAN 

895 TURNTO 0 

900 GOTO -70,-30 

910 DRAWTO-70,-30 

920 G0T0-70,-30 

930 DRAWTO-50,-30 

940 GOTO -50,-30 

950 DRAWTO-50,0 

960 TURN 210 

970 25 (DRAWi; TURNS) 

975 TURN45 

980 30 < DRAW 1 ; TURNS ) 

990 GOTO -70,0 
1 000 DRAWTO-70 , -30 
1010 E: 

1020 *BUBBLEMAN 
1025 PEN YELLOW; TURTLE OFF 
1030 U: * BUBBLE 
1040 GOTO 11,30 
1050 U:*HEAD 
1060 GOTO 39,0 
1070 U: *OVAL 
1080 GOTO -28,0 
1090 TURN 90 
^ 100 U: *OVAL 
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BUBBLE Page 3 



# 



1 100 U: *0VAL 
1110 GOTO 10,-16 
120 TURN 180 
130 U: *OVAL 
1140 GOTO 30,-16 
1150 TURN 90 
1160 U:*OVAL 
1170 *EYES 
1180 GOTO 20,35 
1190 100(DRAW1;TURN35) 
1200 GOTO 16,32 
1210 TURN3 

1220 100<DRAW1;TURN35> 

1230 *NOSE 

1240 GOTO 19,30 

1250 DRAW 2 

1260 TURN -90 

1270 DRAW 2 

1280 *MOUTH 

1290 GOTO 16,26 

1300 TURNT0135 

1310 DRAW2 

1320 TURNTO 90 

1330 DRAW 4 

1340 TURNT045 

1350 DRAW2 

1360 E: 

1370 *BUBBLE 
380 120<DRAW1; TURN3) 
390 E: 
1400 *HEAD 

1410 110(DRAW1; TURN7) 
1420 E: 
1430 *QVAL 

1440 30 < DRAW 1; TURN3) 
1450 TURN90 
1460 30 < DRAW 1; TURN3) 
1470 E: 
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mmr mm — « .. . *MW * * » *— •* « — ■ — ■ • • > mmmW — 

12 POS: 6, 2 

14 T: CLOSER 

16 P0S:9,5 

18 T: AND 
A 20 POS: 8, 8 
W 22 T: CLOSER 

30 SO: 13 

32 PA: 5 

34 S0:0 

36 PA: 5 

40 SO: 13 

42 PA: 40 

44 S0:0 

46 PA: 80 

48 LETTERS: SMALL 
50 PEN YELLOW 
52 C:#T=40 

54 U:*SHOW 

60 PEN RED 

62 C:#T=15 

64 U:*SHOW 

70 PEN BLUE 

72 C:#T=5 

74 U: *SHOW 

80 GOTO 0 , 1 00 

82 PA: 15 

84 S0:0 

86 T: THEY'RE GONNA GET YA ! ! 

87 PA: 60 

88 T: PRESS RETURN. 
A 90 A: 

W 92 U: *FLASH 

94 LETTERS: MEDIUM 

96 POS: 5 ,8 

98 T: GOT YA ! 

99 PA: 120 
100 E: 

110 *SHOW 

112 GOTO 0,0 

120 U: *DESIGN 

122 SO: 15 

124 PA:#T 

130 GOTO 20,30 

140 U: * DESIGN 

142 SO: 17 

144 PA:#T 

150 GOTO -15,-10 
160 U: * DESIGN 
162 SO: 13 
164 PA:#T 
170 GOTO 40,-20 
180 U: *DESIGN 
182 SO: 5 
184 PA:#T 
190 GOTO -50, 10 
192 U: *DESIGN 
194 S0:8 
W 196 PA:#T 
198 E: 
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PA: #T 




650 


E: 





Closer page 
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Design 



00 PEN YELLOW 
DRAW 10 
TURN -20 
DRAW 3 
TURN -20 
DRAW 3 
TURN -120 
DRAW 3 
TURN -20 
DRAW 3 
TURN -20 
DRAW 3 
TURN -50 
DRAW 3 
TURN -20 
DRAW 3 



210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
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10 C: #T=5 

15 *REPEAT 

20 U:* THEME 

30 U: * THEME 

40 U: *SL0WN0TES 

50 J:*REPEAT 



HUSTLE PAGE 1 



90 
1 00 
120 
130 
140 
150 
160 
170 
ISO 
500 
510 
512 
520 
522 
530 

cr t *™j 

540 



550 
552 
554 
556 
560 
562 
570 
572 
580 
582 
590 
592 
596 
600 
610 
612 
620 
622 
630 
632 
640 
642 
650 
652 
654 
656 
660 
662 
670 
672 
680 
682 
690 
692 
696 
700 



E: 

♦THEME 

U: *PHRASE1 
U: *PHRASE2 
Us *PHRASE1 
U: *PHRASE2 
U: *PHRASE3 
U: *PHRASE3 
E: 

*PHRASE1 
SO: 15 



PA 
SO 
PA 
SO 
PA 



3*#T 



3*#T 

3*#T 
SO: -2 
PA:3*#T 
SO: +2 
PA:2*#T-1 
SO: O 
PA: 1 
SO: 15 
PA:#T 
SO: -2 
PA: 3*#T 
SO: +2 
PA:3*#T 
SO: +3 

PA:3*#T 
E: 

*PHRASE2 
SO: 1 1 
PA:3*#T 
SQ:-1 
PA:3*#T 
SO: + 1 
PA:3*#T 
S0:-1 
PA:3*#T 
SO: +1 
PA:2*#T-1 
S0:0 
PA: 1 
SO: 1 1 
PA:#T 
S0:-1 
PA:3*#T 
SO: +1 
PA:3*#T 

SO: +2 
PA: 3*#T 
E: 

*PHRASE3 
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HUSTLE PAGE 





T /**\ /""\ 




7 1 n 
/ j. k j 


SO- 18 


7 1 7 

/XX- 


PAs ^*#T 


/ x- v 


SO 2 +2 


/ X- X- 


PA- ~^*#T 


/ -j>ij 




/ -jxL 




~7 ZL{~\ 
/ *+lJ 


CDLJ ■ ~ 


7,10 


r n • * tt 1 
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75U 


bU S —-i 


752 


Pi/\ . JiT A 

PA : 2*#T— 1 


754 


SO : O 


756 


r A " 1 


"7 


on • 1 fl 
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/ O*- 


PA i 4*T 




cn ■ +t> 

uU ■ » X- 


770 

/ / xZ 


P M ■ •_.» * TT 1 


7Q(-) 


CDLJ ■ x. 


7QO 
/ O^. 




7QA 


CD LJ ■ 


/ 7 jL. 


p M 5 o * tt 1 


7QZ. 


c ■ 


lj s.' V 


*SI OLINOTFS 

* 31 LJ WIMLJ 1 CO 


R 1 f) 


SO - 1 fl 

LJ LJ ■ X w 


R 1 2 


PA- 18*#T 


R^O 


SO: +2 




PA- A*#T 

i n ■ w tt i 


O %J> V 


CD LJ ■ / 




DA a 1 Q * JiT 
rn « 1D*1T 1 


0*t\j 


cn • -l-xl 
vD LJ ■ T**T 




PA i A JkikT 

P M » O ^ TT 1 


CJ \-> V.' 


SO - 4»3 


O Ji. 


PA ■ 1 R*4*T 

1 n ■ X LJ T TT 1 


RAO 
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LJ LJ ■ * JL. 


O O 


PA - A*4*T 
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O / Z 


PAs DA*MT-D 
rH! ucL*t*tt 1 xL 


880 


80 tO 


882 


PA: 2 


890 


E: 
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HUSTLER Page 1 

12 Us*DANCE 

14 Cs#TEMP0=4 
16 Us*DANCE 

15 C:#TEMP0=3 
20 Us * DANCE 
22 C: #TENP0=2 
24 Us*DANCE 
26 Cs#TEMP0=l 
28 U:*DANCE 
30 TURNTO 195 
32 T:NOT\ 

40 Es 

50 * DANCE 

60 Us*THEME 

61 Ri ERASE "DO THE HUSTLE ! 11 

62 Ts 
64 Ts 
66 T: 
68 Ts 

70 Us fcTHEME 

80 Us *SLOWNOTES 

82 TsDO THE HUSTLE! 

90 E s 

100 *THEME 

110 Us*PHRASEl 

130 Us*PHRASE2 

140 Us*PHRASEl 

150 Us *PHRASE2 

160 Us*PHRASE3 

170 Us *PHRASE3 

1 SO E s 

500 *PHRASE1 

508 GO 1 ; TURN -30 

510 S0sl5 

512 PAs3*#TEMPQ 

520 SO s -2 

522 PAs3*#TEMP0 

528 TURN 30; GO 1 5 TURN 30 

530 SOs +2 

532 PA:3*#TEMP0 

540 SOs -2 

542 PA:3*#TEMP0 

548 TURN -30; GO 1 ; TURN -30 

550 SOs +2 

552 PAs2*#TEMP0-l 

554 SOs O 

556 PA s 1 

560 SOs 15 

562 PAf #TEMPO 

570 SO s -2 

572 PAs3*#TEMPQ 

578 TURN 30; GO 1 ; TURN 30 

580 SOs +2 

582 PAs3*#TEMP0 

590 SOs +3 

592 PAs3*#TEMP0 

594 TURN -30 



5 



96 Es 



600 *PHRASE2 41 
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..r-.T-^r-^ HUSTLER Page 2 

600 *PHRASE2 * 

608 GO -1 

610 SO: 11 

612 PAi3*#TEMP0 

620 S0:-1 

622 PA:3*#TEMP0 

628 GO -1 

630 S0:+1 

632 PA:3*#TEMP0 

640 S0:-1 

642 PA:3*#TEMP0 

648 GO -1 

650 SO : + 1 

652 PA: 2*#TEMP0-1 

654 SQ:0 

656 PA: 1 

660 SO: 11 

662 PA: #TEMPQ 

670 S0:-1 

672 PA:3*#TEMP0 

678 GO -1 * 

680 S0:+1 

682 PA:3*#TEMP0 

690 SO: +2 

692 PA:3*#TEMP0 

696 E: 

700 *PHRASE3 

708 TURN -45 

710 SO: 18 

712 PA:3*#TEMP0 

720 SO: +2 

722 PA:3*#TEMPQ 

728 TURN 45 

730 SO: -2 

732 PA:3*#TEMP0 

740 SO: +2 

742 PA:3*#TEMP0 

748 TURN 45 

750 SO: -2 

752 PA: 2*#TEMP0-1 

754 S0:0 

756 PA: 1 

760 SO: 18 

762 PA:#TEMPO 

770 SO: +2 

772 PA:3*#TEMP0 

778 TURN -45 

780 SO: -2 

782 PA:3*#TEMP0 

790 SO: +2 

792 PA:3*#TEMP0 

796 El 

800 *SLOWNOTES 
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HUSTLER Page 3 



800 


*SL0WN0TES 






808 


TURN -90; GO 


1 ; TURN 


90 


810 


SO; 18 






812 


PA:6*#TENP0 






814 


TURN -90; GO 


1 ; TURN 


90 


815 


PA:6*#TEMP0 






816 


TURN -90;G0 


1 ; TURN 


90 


817 


PA:6*#TEMP0 






818 


TURN -90; GO 


1 ; TURN 


45 


820 


SO: +2 






822 


PA:6*#TEMP0 






828 


TURN 135; GO 


1 ; TURN 


-90 


830 


SO: -9 






832 


PA:6*#TEMP0 






834 


TURN 90; GO 1 


; TURN - 


-90 


835 


PA:6*#TEMP0 






836 


TURN 90 ; GO 1 ; TURN - 


-90 


837 


PA: 6*#TEr!PU 






838 


T i tr*iHi Ot"\ _ 4 

TURN VO ; SO 1 


; TURN - 


-45 


840 


bu : •+"•*+ 






842 


rfi! o*** I fcrlrU 






848 


ti ie»m — 1 - nn 
I UnIN ""ljjjl bu 


1;TURN 90 


850 


bu : +o 






852 


rH : o **M trlr U 






854 


TURN -9U;G0 


1 ; TURN 


90 


855 


PA:6*#TEMP0 






856 


TURN -90; GO 


1 ; TURN 


90 


857 


PA:6*#TEMP0 






858 


TURN -90; GO 


1 ; TURN 


45 


860 


SO: +2 






862 


PA:6*#TEMP0 






868 


TURN 90 






870 


SO: -2 






872 


PA:6*#TEMP0 






873 


TURN 90 






874 


PA:6*#TEMP0 






875 


TURN 90 






876 


PA:6*#TEMP0 






877 


TURN 45 






878 


PA:6*#TEMP0- 


2 




880 


SO : 0 






882 


PA: 2 






890 


E: 
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80 LETTERS: LARGE LaUra pagG 1 

85 T: 

90 Ts -Ur B 

1 20 PA : 1 50 B 
150 P0S:5,9 
160 T: 
170 T: 
180 PA: 100 
185 LETTERS: SMALL 
190 CLEAR 

200 PEN YELLOW? TURTLE OFF 
210 GOTO 50,0 
220 DRAWTO 60,0 
230 DRAWTO 60,-10 
240 DRAWTO 50,-10 
250 DRAWTO 50,0 
260 GOTO 65,-12 
270 DRAWTO 65,-12 
280 DRAWTO 65,-16 
290 DRAWTO 60,-16 
300 DRAWTO 60,-20 
310 DRAWTO 50,-20 
320 DRAWTO 50,-16 
330 DRAWTO 45,-16 
340 DRAWTO 45,-12 
350 DRAWTO 65,-12 
360 GOTO 50,-20 
370 DRAWTO 50,-31 
380 DRAWTO 60,-31 
390 DRAWTO 60,-20 
400 GOTO 55,-24 
410 DRAWTO 55,-31 
420 GOTO 53,-3 
430 GOTO 57,-3 
440 GOTO 52,-7 
450 TURN 90 
460 DRAW 6 
470 PA: 60 

480 T.-THIS IS ME! MY FAVORITE COLOR IS YELLOW. I LIKE TO WEAR BLUE JEANS. HIT ? RET 
URN' TO CONTINUE. 
490 C:#T=6 
500 PA:#T 
510 U: *UPDOWN 
520 A: 
530 CLEAR 
540 GOTO -20, 10 
550 DRAWTO -10, 10 
560 DRAWTO -10,10 
570 DRAWTO 0,0 
580 DRAWTO 0,-10 
590 DRAWTO -10,-20 
600 DRAWTO -20,-20 
610 DRAWTO -30,-10 
620 DRAWTO -30,0 
630 DRAWTO -20, 10 
640 GOTO -30,0 
650 DRAWTO -20,5 
660 DRAWTO -10,5 
670 DRAWTO 0,0 
680 GOTO -30,-10 
690 DRAWTO -20,-15 

700 DRAWTO -10,-15 Copyright Atari, Inc. 1983. All rights reserved. 
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Laura page 2 




« 




700 DRAWTO -10,-15 
710 DRAWTO 0,-10 
720 PEN YELLOW 
730 GOTO -60,47 
740 DRAWTO -60,20 
750 DRAWTO 50,20 
760 DRAWTO 50,47 
770 GOTO -60,47 
780 C:#Q=1 
790 C:#I=1 

860 T:I LIKE BASEBALL- MY FAVORITE TEAM 
ONTINUE. 
870 C:#T=18 
880 SO: 25 
890 PA:#T 
900 SO: 29 
910 PA:#T 
920 SO: 27 
930 PA:#T 
940 SO: 24 
950 PA:#T 
960 SO: 29 
970 PA:#T 
980 SO: 27 
990 PA:#T 
1000 SO: 24 
1010 PA:#T 
1020 SO: 25 
030 PA:#T 
040 SO: 29 
1050 PA:#T 
1060 SO: 
1070 PA:#T 
1080 SO: 24 
1090 PA:#T 
1100 SO: 22 
1110 PA:#T 
1120 SO: 25 
1130 PA:#T 
1140 SO: 26 
1150 PA:#T 
1160 SO: 25 
1170 PA:#T 
1180 SO: 24 
1190 PA:#T 
1200 SO: 22 
1210 PA:#T 
1230 S0:0 
1240 A: 
1250 CLEAR 
1260 PEN YELLOW 
1270 GOTO 0,0 
1280 DRAWTO 0,20 
1290 DRAWTO -20, 20 
300 DRAWTO -20,0 



IS THE NEW YORK YANKEES. HIT 9 RETURN TO C 
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1300 DRAWTO -20,0 Laura page 3 

1310 DRAWTO 0,0 !* ** 
1320 DRAWTO 5,5 
330 DRAWTO 5,25 
™340 DRAWTO -15,25 
1350 DRAWTO -15,5 
1360 DRAWTO 5,5 
1370 GOTO 0,20 
1380 DRAWTO 5,25 
1390 GOTO -20,20 
1400 DRAWTO -15,25 
1410 GOTO -20,0 
1420 DRAWTO -15,5 
1430 , PA:#f 

1440 tsl LIKE MATH * DRAWING GEOMECTRICAL FIGURES. HIT RETURN TO CONTINUE. 
1450 C:#T=60 

1460 SO: 22 

1470 PA:#T 

1480 SO: 24 

1490 PA:#T 

1500 SO: 25 

1510 PA:#T 

1520 SO: 27 

1530 S0:0 

1540 As 

1550 CLEAR 

1560 PEN BLUE 

1570 GOTO 10,0 

1580 DRAWTO 30,0 
590 GOTO 0, 10 
^600 DRAWTO -50,10 

1610 DRAWTO -60,5 

1620 DRAWTO -60,-5 

1630 DRAWTO -50,-8 

1640 GOTO -30,-6 

1650 DRAWTO 10,0 

1660 PEN YELLOW 

1670 GOTO 0,10 

1680 DRAWTO 0,0 

1690 DRAWTO 10,0 

1700 DRAWTOO, 10 

1710 GOTO -60,5 

1720 DRAWTO -70,5 

1730 DRAWTO -65,2 

1740 DRAWTO -79,0 

1750 DRAWTO -65,-5 

1760 DRAWTO -70,-4 

1770 PEN RED 

1780 GOTO -20, 10 

1790 DRAWTO -30,20 

1800 DRAWTO -35,20 

1810 DRAWTO -32, 10 

1820 GOTO -50, 10 

1830 DRAWTO -56,16 
W840 DRAWTO -62,16 
^,850 DRAWTO -60,8 

1860 GOTO -22,4 

1870 DRAWTO -40,4 

1880 DRAWTO -77,-30 

1890 DRAWTO -52,-30 

1900 DRAWTO -22,4 4 6 
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Laura page 4 



m 



m 



1 900 
1910 

920 
930 
1940 
1950 
1960 
1970 
1 980 
1990 
2000 
2010 
2080 
2090 
2 1 00 
2110 
2120 
2 1 30 
2 1 40 
2150 
2160 
2170 
2180 
2185 
2190 
2200 
2210 

°°30 
240 



DRAWTO -22,4 

T:I ALSO LIKE BUILDING MODEL ROCKETS. HIT 

C:#T=60 

SO s 26 

PA:#T 

SO: 24 

PA:#T 

SO: 23 

PA: #T 

SO: 22 

S0:0 

A: 

LETTERS: MEDIUM 

POS: 5, 6 

T: Te I d 

PA: 1<?0 

C:#T=8 

PA:#T 

U: *UPDOWN 

PA:#T 

U: *PONY 

PA:#T 

U: *DOWN 

PA: tOO 

E: 

*DOWN SO: 20 
PA:#T 



'RETURN' TO GO ON. 



m 



2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
490 
500 



SO 
PA 
SO 
PA 
SO 
PA 



19 
#T 
18 
#T 
17 
#T 



SO: 16 
PA: #T 
SO: 15 
PA:#T 
SO: 14 
PA:#T 
SO: 13 
PA:#T 
SO: 12 
PA: #T 
SO: 11 
PA:#T 
SO: 10 
PA:#T 
SO: 9 
PA:#T 
SO: 8 
PA:#T 
SO: 7 
PA:#T 
SO: 6 
PA:#T 
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Laura page 



sLuJlJlJ 9 
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i. J 1 V q 


i rl 1 tt 1 


'^^^ _J jL. S.' q 




ZJ-JU 9 


r^H S tt 1 




c:n . t 


•^Lw'vJlJ 9 


rn" tt 1 




C5LJ • 46 


4»w / V.* 9 


PA ■ :ttT 
rrli tf 1 


C O /"\ 

JOU 9 


on. i 


2590 p 


PA:#T 


2600 9 


SO : 0 


2610 , 


E: 



2620 *UPD0WN SO: 30 



4 



26^0 „ 


PA: #T 


2640 


SO: 1 


jiuu v 9 


PA • ±kT 


2 6 AO 

.»— w w s -' 9 


SO - 29 


2670 


PA - #T 

1 Fi ■ TT 1 


26S0 


SO: 2 


2690 ■ 


PA: #T 

■ ■ l m mm 9 


2700 , 


SO: 28 


27 10 


PA: #T 


2720 . 


SO: 3 


2730 

j — / wv 9 


PA: #T 

1 1 I ■ TT 1 


2740 


SO: 27 

V-J 1 Jim t 


X. / Wv 9 


PA: #T 

1 1 1 » TT 1 


^7 AC) 


SO: 4 


2770 - 


PA: #T 


C780 . 


SO: 26 


2790 


PA: #T 


2 8 no . 


SO: 5 


28 1 0 . 


PA: #T 


2820 


SO: 25 

W \— > m Jim V— i 


X. w \J 9 


PA - #T 
i n ■ tt i 


.i. O *T V.' 9 


WUI ■ O 


jiDJv 9 


PA ■ i*T 

1 M ■ TT 1 


iuoU 9 


DU ■ jC*t 


9Q7A 


P'A ■ 44 T 
rn! tt 1 


iOOU 9 


an n "7 

wU 8 / 


*"> Q O 
ZotU 9 


OA » ±kT 

r^H I tt I 


o /"i f~i 

4fcWV 9 


cn ■ o"T 

□U i 


^cL V 1U 9 


r H : tt 1 


xL7xL\J 9 


on - q 

wU : o 


j£.7JU 9 


r H : tt 1 


2940 9 


SO: 22 


2950 , 


PA:#T 


2960 , 


SO: 9 


2970 , 


PA: #T 


2980 , 


SO: 21 


2990 , 


PA:#T 


3000 9 


SO: 10 


3010 , 


PA:#T 


3020 , 


SO: 20 


K030 , 


PA:#T 


R o 40 9 


SO: 11 


3050 , 


PA:#T 


3060 , 


SO: 19 


3070 9 


PA:#T 


3080 9 


SO: 12 


3090 9 


PA:#T 


3100 , 


SO: 18 
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Laura page 



3100 


SO: 18 


31 10 


, PA:#T 


3 1 20 


, SO: 13 


f 1 30 


? PA:#T 


3140 


, SO: 17 


3 1 50 


? PA:#T 


316U 


? SO: 14 


3170 


, PA:#T 


3 1 80 


., SO: 16 


3 1 90 


, PA:#T 


3200 


, SO: 15 


3210 


, PA:#T 


3220 


S0:0 


3230 




4030 


*P0NY SO: 13 


4040 


PA:#T 


4050 


, SO: 13 


4060 


, PA:#T 


4U70 


. SO: 15 


4U8U 


P PA:#T 


4U9U 


, SO: 17 


4 1 00 


, PA:#T 


41 10 


, SO: 18 


4120 


,, PA:#T 


4130 


, SO: 17 


4 1 40 


PA:#T 


4150 


., SO: 15 


4 1 60 


? PA:#T 


^170 


, SO: 13 


FH80 


, PA:#T 


4190 


, SO : 0 


4200 


■ E : 
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10 GOTO -75,20 
20 TURNTO 90 
30 PEN RED 
40 U: *L 
50 GO 20 
60 PEN BLUE 
70 U:*E 
80 GO 20 
90 PEN YELLOW 
100 U:*S 
110 GO 20 
120 PEN RED 
130 U:*L 
140 GO 20 
150 PEN BLUE 
160 U: *I 
170 GO 10 
180 PEN YELLOW 

190 U:*E 
192 GO 40 

199 E: 

200 *L 

210 DRAW 5 5 TURN 90 5 DRAW 25; 
W 155 TURN 90; FILL 30 
220 TURN 90 
230 E: 
300 *E 

310 DRAW 15; TURN 90; DRAW 5; TURN 90; DRAW 10; TURN -90; DRAW 5; TURN -90; DR 
W 5; TURN 90 5 DRAW 5 

320 TURN 90; DRAW 5; TURN -90; DRAW 10; TURN -90; DRAW 10; TURN 90; DRAW 5; TU] 
RN 90; DRAW 155 TURN 90 
330 FILL 30; TURN 90 I 
340 E: j 
400 *S I 
410 DRAW 155 TURN 90; DRAW 5; TURN 90; DRAW 10; TURN -90 5 DRAW 5 5 TURN -90; DR 
AW 10; TURN 90; DRAW 20 

420 TURN 905 DRAW 155 TURN 90; FILL 55 TURN 90; DRAW 10; TURN -905 FILL IO5TUR 
N -90; DRAW IO5 TURN 90 
430 FILL 15; TURN 90 
440 E: 
500 *I 

510 DRAW 5 5 TURN 90 5 DRAW 5s TURN 90; DRAW 5; GO -5 5 TURN -90 

520 GO 5; DRAW 20; TURN 90; DRAW 5; TURN 90; FILL 20; GO 5; FILL 5; TURN 90 
530 E: 



TURN -90; DRAW 10; TURN 90; DRAW 5; TURN 90; DRA 
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MASTER 

10 *MASTER 
150 PEN YELLOW; TURTLE OFF 
160 GOTO 0,30 
170 DRAWTO -30,0 
180 DRAWTO 0,-30 
210 GOTO 0,50 
220 FILLTO 0,30 
240 FILLTO 30,0 
280 FILLTO 0,-30 
290 FILLTO 0,-35 
300 GOTO -79,47; DRAWTO 79,47 

310 PA: 120 

311 T: — -Mi ■ AJ 

312 S0:4, 13a 

313 PA: 80 

314 SO: 20 
316 S0:0 

320 PEN ERASE 
330 GOTO 0,0 
340 DRAWTO 0,-31 
350 GOTO 0,0 
360 DRAWTO ' 79,0 
370 GOTO 0,0 
380 DRAWTO 0,47 
390 GOTO 0,0 
400 DRAWTO -79,0 
405 PA: 120 

420 SoW£l5/k " * T " 

430 PA: 80 
440 SOsO 
450 PA: 120 
460 PEN BLUE 
470 GOTO 0,3 
480 DRAWTO -3,0 
490 DRAWTO 0,-3 
500 DRAWTO 3,0 
510 DRAWTO 0,3 
520 GOTO 3,0 
530 DRAWTO 4,0 
540 GOTO -3,0 
550 DRAWTO -4,0 
560 GOTO 4,5 
570 DRAWTO 4,-5 
580 GOTO -4,5 
590 DRAWTO -4,-5 
600 PA : 1 20 

615 PA: fOO 

620 T: MADE BY: ROBERT LEITNER 

625 PA: 100 

700 PEN YELLOW 

710 HOME 

720 C:#SIZE=0 

750 *EXPLODE 

755 SO: 1,2 

760 5 ( DRAW #SIZE; TURN 172; DRAW #SIZE; TURN -100 > 

765 SO: 8, 7 

770 TURN 31 

780 C:#SIZE=#SIZE+1 

790 J:*EXPLODE 51 

Copyright Atari, Inc., 1983. All rights reserved 




10 R: RUN THE PROGRAM. THEN TRAVERSE THE MAZE , 
90 TURTLE OFF Maze 1A 

100 GR: CLEAR; PEN RED 
110 GR: GOTO -55, 25; TURNTO O 

120 GR: DRAW 10; TURN 90; DRAW 15; TURN 90; DRAW 25; TURN 90; DRAW 30;TURN 90;DRAW 35; 
URN 90; DRAW 145; TURN 90 
130 GR: DRAW 75; TURN 90; DRAW 35; TURN 90;DRAW IS; TURN -90; DRAW 40;TURN -90; DRAW E 
; TURN -90; DRAW 25; TURN ISO 
140 GR: GOTO -10,-30 

150 GR: DRAW 60; TURN 90; DRAW 25; TURN 90; DRAW 45; TURN -90; DRAW 40; TURN 90; DRAW 7£ 
; TURN 90; DRAW 55; TURN 90 

160 GR: DRAW 45; TURN 90; DRAW 8; TURN 90; DRAW 25; TURN -90; DRAW 32; TURN -90;DRAW AC 
; TURN -90; DRAW 25; TURN -90 

170 GR: DRAW 20; TURN -90;DRAW 15 

180 GR: PEN YELLOW; GOTO 0,0 

190 WALL RED; EDGE HALT; TURTLE ON 

200 T: THE TURTLE IS IN THE MIDDLE FACING UP. PRESS RETURN 
210 A: 

220 T : GET THE TURTLE OUT OF THE MAZE. \ 



Maze 2A 



10 R: RUN THE PROGRAM. THEN GUIDE THE TURTLE THROUGH THE MAZE. 
90 TURTLE OFF 
100 GR: CLEAR; PEN BLUE 
.200 GR: GOTO -79, -5: DRAWTO -79, -32; GOTO 79,-32; DRAWTO 79,47;DRAWT0 -60,47 
^210 GR: GOTO -50,0; DRAWTO -65, 30; DRAWTO -60, 47; DRAWTO -79, 47; DRAWTO-79, 20; DRAWTC 
-65, O; DRAWTO-60, -16 

220 GR: DRAWTO -28, -15; DRAWTO -48, 31; GOTO 65, -17; DRAWTO 62, -7; DRAWTO 40,-32;DRAl 
TO 3, -32; DRAWTO -30,24 

230 GR: DRAWTO 10, 32; DRAWTO -10, 20; DRAWTO 10, -10; DRAWTO 30, -16; DRAWTO 47, O; DRAW" 
0 43, 13; DRAWTO 35,16 

240 GR: GOTO 43, 13; DRAWTO 28,-1; DRAWTO 1 1 , 14; DRAWT032, 31 ; DRAWTO 57, 28; DRAWTO 63. 

8 

250 GOTO -79, -32; DRAWTO 79,-32 
300 GR: PEN YELLOW; GOTO 25,11;TURNT0 0 
310 WALL BLUE; EDGE HALT; TURTLE ON 
320 T: 

350 T: GUIDE THE TURTLE OUT OF THE MAZE.\ 
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10 R: RUN THE PROGRAM. THEN GUIDE THE TURTLE OUT OF THE MAZE. 

90 TURTLE OFF M '» 

100 GR: CLEAR; PEN RED Maze IB 

110 GR: GOTO 56,5;TURNT0 90 

120 GR: DRAW 14; TURN -90; DRAW 30; TURN -90; DRAW 14; TURN -90; DRAW 10; TURN -90;DRAl 
^7; TURN -90; DRAW 5 

1 30 GR : GOTO 63,5; DRAW 1 5 ; GOTO 56 , 1 0 ; DRAW 1 O ; TURN -90 ; DRAW 7 ; TURN 90 ; DRAW 1 O ; TUF 
N -90; DRAW 28 

140 GR: GOTO 56, 15; DRAW 7; GOTO 56, 35; DRAW 105; TURN -90; DRAW 5; GOTO 14, 35; DRAW 5; 
GOTO -7, 35; DRAW 10 

150 GR: GOTO 42, 30; DRAW 20; TURN 90; DRAW 7; TURN -90; DRAW 5; TURN -90; DRAW 7; TURN « 
0;DRAW 5; TURN -90; DRAW 7 

160 GR: GOTO 49, -20; DRAW 21; GOTO 56, -5; DRAW 7; TURN 90; DRAW 10;TURN 90; DRAW 21; 
TURN -90; DRAW 10 

170 GR: GOTO 49, 10; DRAW 10; TURN -90; DRAW 21; TURN 90; DRAW 25; TURN 90; DRAW 140; TUF 
N 90; DRAW 30; TURN 90 

180 GR : DRAW 7; TURN 90; DRAW 10; TURN -90; DRAW 14; TURN -90; DRAW 15; TURN 90; DRAW 7: 
TURN -90; DRAW 5; TURN 90 

190 GR: DRAW 14; TURN 90; DRAW 10; TURN -90; DRAW 14; TURN 90; DRAW 5; TURN -90;DRAW 1^ 
; TURN -90; DRAW 15; TURN -90 

200 GR: DRAW 21; TURN 90; DRAW 10; TURN -90; DRAW 14; TURN -90; DRAW 5; TURN 90; DRAW 2E 
; TURN 90; DRAW 5 

210 GR: GOTO -56,0; DRAW 10;TURN -90; DRAW 14; TURN 90; DRAW 25; TURN 90; DRAW 35;TURP 
90; DRAW 5; TURN -90 

220 GR : DRAW 21; TURN 90; DRAW 10;TURN -90;DRAW 14; TURN -90; DRAW 10;TURN 90; DRAW : 
; TURN 90; DRAW 5; TURN -90 

230 GR: DRAW 21; TURN 90; 3 (DRAW 5; TURN 90; DRAW 7; TURN -90); DRAW 15; TURN -90; DRAW 
7; TURN -90; DRAW 10 

240 GR: 3 (TURN 90; DRAW 7; TURN -90; DRAW 5); DRAW 5; GOTO -28, 15; DRAW 5; GOTO -7,5;DF 
AW 5; TURN -90; DRAW 21 
^250 GR: GOTO 14, 20; DRAW 14; GOTO 7, 15; DRAW 7; GOTO -28, 5; DRAW 14; GOTO -49, 15; DRAW 
1^14; TURN 90; DRAW 5 

260 GR: GOTO 2 1,-5; DRAW 5; TURN 90; DRAW 14; TURN 90;DRAW 5; GOTO 28, 10; DRAW 10;G0TC 
-42, 30; DRAW 5; TURN 90 

270 GR: DRAW 14; TURN 90; DRAW 5; TURN -90; DRAW 14; GOTO -35, 10; DRAW 7; GOTO 49,-5;DF 
AW 21; TURN -90; DRAW 10 

280 GR: GOTO -28,0; DRAW 10; TURN 90; DRAW 35; TURN -90; DRAW 10; TURN -90; DRAW 63; TUF 
N -90; DRAW 5; TURN 90; DRAW 14 

290 GR: TURN 90; DRAW 10; TURN 180; GOTO -42, -10; DRAW 10; TURN 90; DRAW 7; TURN 90; DR* 
W 5; GOTO -21,0; DRAW 15 

300 GR: TURN 90; DRAW 35; GOTO 7, -20; DRAW 7; GOTO 56, -10; DRAW 21; TURN -90; DRAW 10; 1 
URN 90; DRAW 14; TURN 90 

310 GR: DRAW 10; TURN -90; DRAW 28; TURN -90; DRAW 5; TURN 90; DRAW 14; TURN 90; DRAW 1C 
; TURN 90; DRAW 28 

320 GR: GOTO -14, -5; TURN 90; DRAW 5 

350 GR: PEN YELLOW; GOTO 75,2;TURNT0 -90 

360 WALL RED; EDGE HALT; TURTLE ON 

400 T: THE TURTLE IS ON THE RIGHT. 

410 T: 

420 T: PRESS RETURN. 

430 A: 

440 T: GET THE TURTLE THROUGH THE MAZE.X 
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Maze 2B 



10 R: RUN THE PROGRAM. THEN GUIDE THE TURTLE THROUGH THE MAZE. 

90 TURTLE OFF 

100 GR: CLEAR; PEN RED 

hid GR: GOTO 10,10;TU 



0;TURN 70; DRAW 20; TURN 60; DF 
-lOOjDRAW 20 

90; DRAW 12; TURN -99; DRAW 10 




TURN -160; DRAW 35 



120;DRAW 20;TUF 



440 T: GET THE TURTLE OUT OF THE MAZE. \ 
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20 U:*DESIGN 
30 Us*DESIGN 
40 U:*DESIGN 
50 U: *DESIGN 
60 GOTO 30,20 
65 U: fcDESIGN 
70 GOTO 40 , 10 
80 U: *DESIGN 
90 GOTO 50,0 

100 U:*DESIGN 

110 GOTO -60,0 

112 NORTH 

1 14 Us *DESIGN 

120 GOTO -50, 2 

122 NORTH 

124 Us *DESIGN 

130 GOTO -40, 5 

132 NORTH 

134 Us*DESIGN 

140 GOTO -30, 10 

142 NORTH 

144 U: *DESIGN 

150 GOTO -20, 18 

152 NORTH 

154 Us *DESIGN 

160 GOTO -10,31 

162 NORTH 

164 Us *DESIGN 

190 Es 

200 * DESIGN 



Picture 



210 


DRAW 


10 


220 


TURN 


-20 


230 


DRAW 


3 


240 


TURN 


-20 


250 


DRAW 


3 


260 


TURN 


-120 


270 


DRAW 


3 


280 


TURN 


-20 


290 


DRAW 


3 


300 


TURN 


-20 


310 


DRAW 


3 


320 


TURN 


-50 


330 


DRAW 


3 


340 


TURN 


-20 


350 


DRAW 


3 


390 


Es 
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5 «r6cket rocket page 

8 PEN YELLOW; TURTLE OFF 
10 GOTO 0,30 
20 DRAWTO 10,20 

30 DRAWTO 10,-20 
40 DRAWTO -10,-20 
50 DRAWTO -10,20 
60 DRAWTO 0,30 
70 GOTO 10,-10 
SO DRAWTO 20,-20 
90 DRAWTO 10,-20 
100 GOTO -10,-10 
110 DRAWTO -20,-20 
120 DRAWTO -10,-20 
130 DRAWTO -10,-25 
140 DRAWTO 0,-25 
150 DRAWTO 0,-20 
160 GOTO 10,-25 
170 DRAWTO 0,-25 
180 GOTO 10,-20 
190 DRAWTO 10,-25 
200 GOTO -10,0 
210 DRAWTO -20,0 
220 DRAWTO -20,5 
230 GOTO 10,0 
240 DRAWTO 20,0 
250 DRAWTO 20,5 
260 GOTO 20, 10 
270 PEN BLUE 
280 DRAWTO 20,30 
290 PA: 10 
300 PEN ERASE 
310 DRAWTO 20, 10 
320 GOTO -20, 10 
330 PEN BLUE 
340 DRAWTO -20,30 
350 PA: 10 
360 PEN ERASE 
365 DRAWTO -20, 10 
370 PEN YELLOW 
380 GOTO -30,-10 
390 DRAWTO -20,-20 
400 GOTO 20,-20 
410 DRAWTO 30,-10 
420 U: *SHIPLEFT 
430 U:*SHIPRIGHT 
565 C:#T=12 
570 U: *CHEESE 
580 U: *TUNA 
590 U:*PONY 
600 U: *RONI 
605 PEN BLUE 
610 GOTO 30,-10 
620 GOTO 30,-10 
630 DRAWTO 70,30 
640 PA: 10 
650 PEN ERASE 
660 DRAWTO 30,-10 
665 PEN BLUE 
670 GOTO -30,-10 
680 DRAWTO -70,30 

690 PA: 10 56 

700 PEN ERASE 
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700 PEN ERASE j ;< > ROCKET Page 

710 DRAWTO -30,-10 
715 PEN RED 
720 GOTO 55,35 
730 Us*STAR 
^740 GOTO -50,35 
750 U: *STAR 
760 PEN ERASE 
770 U: *SHIPLEFT 
780 Us *SHIPRIGHT 
910 GOTO 0,0 
1000 E: 

1990 *SHIPLEFT 
2000 GOTO -70,30 
2010 DRAWTO -70,47 
2020 DRAWTO -60,40 
2030 DRAWTO -40,40 
2040 DRAWTO -30,30 
2050 DRAWTO -70,30 
2052 E: 

2055 *SHIPRIGHT 
2060 GOTO 70,30 
2070 DRAWTO 70,40 
20S0 DRAWTO 40,40 
2090 DRAWTO 30,30 
2100 DRAWTO 70,30 
2110 DRAWTO 70,47 
2120 GOTO 70,47 
2130 DRAWTO 60,40 
2140 Es 

5382 *CHEESE SOs 13 
^^384 PAs#T 

5386 SOs 13 

5388 PAs#T 

5390 SOs 15 

5392 PAs#T 

5394 SOs 17 

5398 SOs 13 

5400 PAs#T 

5402 SOs 17 

5404 PAs#T 

5406 SOs 15 

5408 PAs#T 

5410 SOs 15 

5412 PAs#T 

5414 SOsO 

5416 SOsO 

5418 Es 

5420 *TUNA SOs 13 

5422 PAs#T 

5424 SOs 13 

5426 PAs#T 

5428 SOs 15 

5430 PAs#T 

5432 SOs 17 

^5434 PAs#T 
flp436 SO: 13 

5438 PAs#T 

5440 SOs 13 

5 7 
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E: 


5492 
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SO: 13 
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E: 


6000 


E: 




AO 1 O 


*STAR 


A020 


DRAW 
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6030 


DRAW 


-16 


6040 


DRAW 
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6O50 


TURN 


45 


6060 


DRAW 
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6070 


DRAW 


-16 


6080 


DRAW 
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6090 


TURN 


45 


J7000 


DRAW 
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VOIO 


DRAW 


-16 
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DRAW 
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TURN 


45 


7040 


DRAW 
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7050 


DRAW 


-16 
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E: 
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50 PEN YELLOW 
52 Cs#T=40 

54 Us *SHOW 
60 PEN RED 
62 C:#T=15 
64 Us *SHOW 
70 PEN BLUE 
72 Cs#T=5 
74 Us*SHOW 
80 GOTO O, 100 
82 PAs 15 
90 SOsO 
100 Es 
110 *SHOW 
112 GOTO 0,0 
120 Us # DESIGN 
122 SO: 15 
124 PAs#T 
130 GOTO 20,30 
140 Us *DESIGN 
142 SOs 17 
144 PAs#T 
150 GOTO -15,-10 
160 Us *DESIGN 
162 SOs 13 
164 PAs#T 
170 GOTO 40,-20 
180 Us*DESIGN 
182 SOs 5 
184 PAs#T 
190 GOTO -50, 10 
192 Us *DESIGN 
194 SOs 8 
196 PAs#T 
198 Es 

*DESIGN 
DRAW 10 
TURN -20 
DRAW 3 
TURN -20 
DRAW 3 
TURN -120 
DRAW 3 



Show 



200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
390 



-20 
3 

-20 



TURN 
DRAW 
TURN 
DRAW 3 
TURN -50 
DRAW 3 
TURN -20 
DRAW 3 
TURN -90 
Es 
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20 C: #T=12 
30 Us*CHEESE 
40 U: *CHEESE 
50 U: * CHEESE 
j/L 60 U: *R0NI 
WlOO C:#T=12 
• 110 U: * CHEESE 
120 C:#T=5 
130 U: *UP 
140 U:*DOWN 
150 C:#T=12 
160 U:*RONI 
200 C: #T=12 
210 U:*CHEESE 
220 C:#T=2 
230 U: *UP 
232 PA: 20 
240 U:*DOWN 
242 PA: 20 
250 C:#T=12 
260 U: *CHEESE 
270 U: *RONI 
300 U: *CHEESE 
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1 300 
1310 
320 
330 
1340 
1 350 
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1370 
1380 
1390 
1400 
1410 
1 420 
1430 
1 500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1 630 
640 
650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
900 
910 
2000 



SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 



20 
#T 
21 
#T 
22 
#T 
23 
#T 
24 
#T 
25 
#T 



SO: 0 
E: 

*DOWN SO: 20 
PA:#T 
SO: 19 
PA:#T 
SO: 18 
PA:#T 
SO: 17 
PA: #T 
SO: 16 
PA:#T 
SO: 15 
PA:#T 
SO: 14 
PA:#T 
SO: 13 
PA: #T 
SO: 12 
PA:#T 
SO: 11 
PA:#T 
SO: 10 
PAs#T 
SO: 9 
PAs#T 
SO: 8 
PA:#T 
S0:7 
PA:#T 
SO: 6 
PA: #T 
SO: 5 
PA:#T 
SO: 4 
PA:#T 
SO: 3 
PA:#T 
S0:2 
PA:#T 
SO: 1 
PA:#T 
S0:0 
E: 

*UPDOWN SO: 30 



61 

Copyright Atari, Inc., 1983. All rights reserved 



2000 
20 1 0 
2020 
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5 U:*TITLE SPACESHIP 
10 R: SPACESHIP 
12 PEN YELLOW; TURTLE OFF 
20 CLEAR 
40 GOTO 0,0 
50 DRAWTO 10, 10 
60 DRAWTO 0,20 
70 DRAWTO 0,20 
80 DRAWTO 0,0 
90 FILLTO 0, 19 
1 00 DRAWTO -10,10 
110 DRAWTO 0,0 
120 PEN ERASE 
1 30 BOTO -5,14 
140 PEN YELLOW 
150 FILLTO -10, 10 
160 FILLTO 0, 1 
170 GOTO -10, 10 
ISO FILLTO 0, 19 
190 PEN BLUE 
200 GOTO -10, 10 
210 DRAWTO -10,-20 
220 GOTO 10, 10 
230 DRAWTO 10,-20 
240 DRAWTO 0,-10 
250 DRAWTO -10,-20 
260 GOTO 10,-20 
270 FILLTO 0,-10 
280 FILLTO 0,0 
290 FILLTO 9,9 
300 GOTO -10,-20 
310 FILLTO -10, 10 
312 G0T047,-79 

314 T: ONE DAY A SPACE SHIP CRASHED 

316 T: LANDED ON PLANET MARS. 

325 U: *CHINGCHANG 

330 PEN RED 

340 FILLTO 79,47 

350 GOTO -10,-20 

360 FILLTO 0,-11 

370 GOTO -10,-21 

380 DRAWTO 10,-20 

390 DRAWTO -10,-20 

400 GOTO O, 19 

410 FILLTO 75,20 

420 GOTO 11,-20 

430 FILLTO 20, 10 

440 GOTO 1,20 

450 FILLTO 70, 20 

460 GOTO 11,-20 

470 GOTO 10,-20 

480 FILLTO 10, 10 

490 FILLTO 0,20 

500 GOTO 10,-20 

510 DRAWTO 75,-20 

520 T:AS SOON AS THE SPACE SHIP 

530 T: CRASHED, IT SANK INTO RED CHEESE. 

540 T: 

700 U: *CHINGCHANG 

•• , 
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m 



700 U: *CHINGCHANG 
710 E: 

720 *CHINGCHANG 
730 SO: 2, 11 
740 PA: 50 
750 50:4, 14 
760 PA: 50 
770 SO: 7, 16 
780 PA: 50 
790 SO: 9, 19 
800 PA: 50 
810 SO: 1 1 , 19 
820 PA: 50 
830 SO: 14,23 
840 PA: 50 

850 SO: 16,26 
860 PA: 50 
870 SO: 19,28 
880 PA: 80 
890 SO: 21, 31 
900 PA: 50 
910 SO: 21, 28 
920 PA: 50 
930 SO: 21, 31 
940 PA: 50 
950 SO: 19, 28 
960 PA: 50 
970 SO: 21, 31 
980 PA: 50 
990 SO: 19, 28 
030 SO: 14, 23 
1040 PA: SO 
1050 SO: 11,21 
1060 PA: 80 
1070 SO: 9, 19 
1080 PA: 80 
1090 SO: 7, 16 
1100 PA: 80 
1110 S0:4, 14 
1120 PA: 80 
1 130 SO: 2,11 
1 140 PA: 120 
1150 E: 

9499 *TITLE 

9500 LETTERS: LARGE 
9502 T: 

9510 T: 
9520 PA: lOO 
9530 SO: 24 
9540 PA: 80 
9550 SO: 31 
9560 PA: 80 
9570 SO: 15 
9580 PA: 90 
9590 SO: 10 
600 PA: 80 
602 LETTERS: SMALL 
9610 E: 



-aClJUJHI^ 
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Squiral 



10 PEN YELLOW 

20 C:#S=1 

30 *AGAIN 

40 DRAW #S 

50 TURN 90 

55 Cs#S=#S+i 

60 • J:*AGAIN 



5 PEN YELLOW 

10 C:#S=1 

20 *REPEAT 

25 U:*SPIRO 

27 GO 
23 
40 



Spirsqui 



5 



50 



TURN 3 
C:#S=#S+1 
J: fcREPEAT 



100 *SPIRO 

1 10 6 (DRAW 9*#S; TURN60? DRAW2*#S? TURN60; DRAW5*#S; TURN60; DRAW3*#S; TURN 60; DRAW 
#S;TURN60) 
120 E: 
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Spiro 




100 PEN YELLOW 
105 GOTO -10,0 
1 10 U: *SPIR0' 
120 GOTO —50, 15 
130 U: *SPIRO 
140 GOTO 5,30; TURN 30 
150 U:*SPIRO 
160 GOTO 32,25; TURN 15 
170 U: *SPIRQ 
180 GOTO 55, 10; TURN 30 

190 U:*SPIRO 

200 GOTO 20,-10; NORTH 

220 Es 

500 * SPIRO 

510 4 ( DRAW 1 8 5 TURN90 ; DR A W4 ; TURN90 5 DRAW 1 0 ; TURN90 ; DRAWS ; TURN90 ; DRAW2 ; TURN90 ) 
520 E : 



■j 



Spiros 




10 PEN GREEN 
100 GOTO -73,-30 
110 C:#S=1 
120 GOTO -72,-15 
130 U:*SPIRO 
140 C: #S=2 
150 GOTO -62,5 
160 U: *SPIRO 
170 C: #S=3 
180 GOTO -35,20 
190 U: *SPIRO 
200 C:#S=4 
210 GOTO 2, 10 
220 U: *SPIRO 
230 C:#S=5 
240 GOTO 45,-12 
250 U:*SPIRO 
260 GOTO -20,-15 
300 E: 
500 * SPIRO 

510 4 (DRAW 9*#S; TURN90; DRAW2*#S; TURN90; DRAW5*#S; TURN90; DRAW3*#S; TURN 90; DRAW 
#S;TURN90) 
520 E: 4 
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♦ STARS 

10 *START 

50 T:H0W BIG A STAR WOULD YOU LIKE? \ 
60 A:#S 

100 T: WHAT COLOR (RED, YELLOW, OR ORANGE)? 
110 A: 

1 20 M : RED , YELLOW , ORANGE 

130 JM: *RED, *YELLOW, *ORANGE 

140 *RED PEN RED 

150 J:*WHERE 

160 * YELLOW PEN YELLOW 

170 J:*WHERE 

ISO *ORANGE PEN ORANGE 

1 90 J : *WHERE 

400 * WHERE 

410 T: WHERE WOULD YOU LIKE THE STAR? 

420 T:HOW FAR OVER? \ 

430 A:#OVER 

440 T:HOW FAR UP? \ 

450 A:#UP 

460 GOTO #OVER, #UP 

470 U: *STAR 

480 J:*START 

500 *STAR 

510 9 < DRAW #S; TURN 40 ) 

520 9 < TURN -60; DRAW #S; TURN 120; DRAW #S; TURN -20 ) 
530 E : 
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10 , Ri STRUM STRUM Page 1 

20 , LETTERS: LARGE 

50 , P0S:1,3 

^ 60 , T: COMPUTER 

lip 70 , T: SING 

SO , T: ALONG 

90 , PA:200 

100 , U:*SONGTITLE 

110 , U:*SETTEMPO 

120 , U:*SETMETER 

130 , C:#N=0 CSETS THE COUNTS PER MEASURE! 

140 , U:*SONG 

150 E: 

160 *CHORD 

170 , C:#K=0 

ISO * REPEAT 

190 , C:#X=#N\#M C#X=FIRST NOTE OF EACH CHORD, IF IT IS FIRST CHORD OF MEASL 
RE IT WILL CONTAIN 3 NOTES D 

200 , C(#X=0) :#Z=#A 

210 , C(#XO0):#Z=0 

220 , SO:#Z,#B,#C,#D 

230 , PA:#T 

240 , SO: 0,0, 0,0 

250 , PA: 1 

260 , C:#K=#K+1 

270 , C:#N=#N+1 

2SO , J <#K<#R> : *REPEATC#R IS THE NUMBER OF STRUMS OF SAME CHORD D 

290 , E: 

300 *C 

A310 , U: *BIGLETTERS" 

\j 320 , T: c major 

330 , C:#A=1 

340 , C:#B=13 

350 , C:#C=17 

360 , C: #D=20 

370 , U: *CHORD 

380 , E: 

390 *F 

400 , U: *BIGLETTERS 

410 , T: F MAJOR 

420 , C:#A=6 

430 , C:#B=1S 

440 , C:#C=22 

450 , C:#D=25 

460 , U: *CHORD 

470 , E: 

480 *C7 

490 , U: *BIGLETTERS 

500 , T: , C 7 

510 , C:#A=13 

520 , C:#B=17 

530 , C:#C=20 

540 , C:#D=23 

550 , U:*CHORD 

560 , E : 

^570 *CSHARP7 

W 580 , U: *BIGLETTERS 

590 , T:' C SHARP 7 

600 , C:#A=14 
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600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1 020 
1030 
1040 
1 050 
1060 
1 070 
1 080 
1 090 
1 100 
1110 
1120 
1 130 
1 140 
150 
1160 
1 1 70 
1 180 
1 190 
1200 



*D7 



*E 



C-#A=14 
C:#B=18 
C:#C=21 
C:#D=24 
U: *CH0RD 
E: 

U: *BIGLETTERS 

C:#A=15 
C: #B=19 
C: #C=22 
C:#D=0 
U: *CH0RD 
E: 

U: *BIGLETTERS 

T: F 

C:#A=15 

C:#B=19 

C:#C=22 

C: #D=25 
U: *CHQRD 
E: 

U: *BIGLETTERS 
C:#A=17 
C:#B=21 
C:#C=24 
C:#D=0 
U: *CH0RD 
E 



■ 

m 



*E7 

U: *BIGLETTERS 
T: e 7 

C:#A=17 
C: #B=21 
C:#C=24 
C:#D=27 
U: *CH0RD 
E: 
*E7MIN 

U: *BIGLETTERS 
T: E 7 MINOR 

C:#A=17 
C:#B=20 
C: #C=24 
C: #D=27 
U: *CHORD 
E: 
*F 

U: *BIGLETTERS 
T: F MAJOR 

C:#A=18 
C: #B=22 
C: #C=25 
C:#D*0 
U: *CHORD 
E: 

♦FBHARPMINOR 

, U: JKBIGLETTERS 
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STRUM Page 



1 




2x0 

1 220 
230 
240 
1250 
1260 
1270 
1 280 
1290 
1 300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1 430 
1440 
1450 
1460 
1470 
1480 
490 
1 500 
1510 
1520 
1 530 
1540 
1550 
1560 
1570 
1 580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
750 
1760 
1770 
1780 
1790 
1 800 



*G 



*G7 



*A7 



Us *BIGLETTERS 
T: f sharp 

Cs#A=19 

Cs#B=22 

C:#C=26 

C:#D=0 

U: *CH0RD 

E: 

U: *BIGLETTERS 
T: 

C:#A=20 
C:#B=24 
Cs#C=27 
C:#D=0 
U: *CH0RD 
E: 

U: *BIGLETTERS 

Ts 5 1" 

C:#A=20 
Cs#A=24 
C:#C=27 
C: #D=30 
U: *CH0RD 
Es 

U: *BIGLETTERS 

T: A MAJOR 

C-#A=10 

C:#B=14 
Cs#0=17 

C: #D«0 
U: *CHORD 

E: 



mi nor 



Us *BIGLETTERS 
T: a 7 
C: #A=10 
Cs#B=14 
Cs#C=17 
As*Y 
Us *CHORD 
Es 
*BFLAT 

Us *BIGLETTERS 

Cs#A=l f 
Cs#B=15 
Cs#C=18 
Cs#D=0 
Ms Y 
E s 



*B7 



U: *BIBLETTERS 
T: f 

C: #A=12 
C:#B=16 
Cs#C=19 
C: #D=22 
U: *CHORD 
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1 800 
1810 
1820 
840 
850 
1860 
1 870 
1880 
1890 
1 900 
1910 
1920 
1 930 

1940 
1950 
1960 
1 970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
090 
1 00 
110 
2 1 20 
2130 
2140 
2150 
2160 
2170 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2320 
2330 
2340 
2350 
2360 
2370 
380 
2390 
400 



STRUM Page 4 

U:*CH0RD 
JY: *S0NG 
*BIGLETTERS 

LETTERS: LARGE 
T: , > 
T: 
T: 
T: 
E: 
EN: 
E: 

♦SETTEMPO 

U: *SH0WTEMP0S 
T: 

T: WHAT TEMPO? 
* INTEMP 

A:*TEMPO 

M: LA, AN, MO, AL, PR 
JN: fcSETTEMPO 
JM: *LARGO, * ANDANTE, *MODERATO, *ALLEGRO, *PRESTO 
♦LARGO 

C:#T=52 CSETS THE LENGTH OF TIME EACH CHORD IS HELD! 
E: 

* ANDANTE 

C:#T=42 
, E: 
♦MODERATO 

C:#T=32 
E: 

♦ALLEGRO 

C:#T=22 
E: 

♦PRESTO 

C:#T=12 
E: 

♦SHOWTEMPOS 
T: 9 y 
QUIT 
P0S:0,2 

T: TEMPO IDENTIFICATION 
T: 

T: LARGO - VERY SLOW 
T: ANDANTE - SLOW 
T: MODERATO- MODERATE 
T: ALLEGRO - FAST 
T: PRESTO - VERY FAST 

p Ei 

♦SONGTITLE 
Ti , > 
POS : O , O 
U: *TITLE 
T: 
T: 

T: *TITLE 
T: 



T: 
T: 
PA: 



200 
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, i y . STRUM Page 5 

2400 , PA: 200 ' "* 

2410 , E:- 

420 *SETMETER 

440 , QUIT 

2450 , T: 9 > 

2460 , T: what is the meter? 

2470 , A:#M CHOW MANY BEATS PER MEASURE} 

2480 , U(#M<2) s *SETMETER 

2490 , U<#M=5> s *SETMETER 

2500 , U <#M>-6> : *SETMETER 

2510 p C(#M=6> :#M=3 

2520 E: 

2530 ^QUESTION 
2535 , QUIT 

2540 , TsDo you want to hear *TITLE again? 

2550 , As*Y 

2560 , M:Y 

2570 , JY:*S0NG 

2580 ENs 

2590 E: 

2600 * TITLE 

26 lO As *TITLE= BLUE TAIL FLY 
2620 E: 
2630 *S0NG 
2640 Cs#R=4 
2650 U:*C 
2660 C:#R=8 
2670 U:*G7 
2680 Cs#R=8 

690 U:*C 
2700 Cs#R=4 
2710 Us *F 
2720 Cs#R=4 
2730 Us *G7 
2740 Cs#R=4 
2750 U:*C 
2760 U: *QUESTI0N 
2770 Es 
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TRIANGLE 

100 GO 40; TURN 150 
110 PEN BLUE 
120 DRAW 40 
'130 PEN RED 

140 DRAW 40; TURN 120; DRAW 40; TURN 90; FILL 34; GO -34; TURN -90; GO 
150 PEN YELLOW 

160 DRAW 39; TURN 120; FILL 40 
170 PEN BLUE 
~" FILL 39 

TURTLE OFF 
*CHANGECOLORS 

CHANGE BLUE, PURPLE 
CHANGE RED, ORANGE 
CHANGE YELLOW, GREEN 
PA: 10 

CHANGE PURPLE, RED 
CHANGE ORANGE, YELLOW 
zou CHANGE GREEN, BLUE 

270 PA: 10 

300 J : *CHANGECOLORS 



180 FILL 39 
190 
200 
210 
220 
230 
235 
240 
250 
260 
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1 PEN YELLOW; TURTLE OFF 

20 GR: G0T0-75, 40 

30 GR: DRAWTO-25, 40 

40 GR: DRAWTO-25, -20 

50 GR: DRAWTO-75, -20 

60 GR:DRAWTQ-75,40 

70 GR:G0T0-55„-20 

80 GR: DRAWTO-55, O 

90 GR:DRAWTQ-45,0 
100 GR: DRAWT0-45, -20 
110 GR:G0T0~25,20 
120 GR:DRAWT020,20 
1 30 GR : DRAWT020 , -20 
140 GR: DRAWTO-25, -20 
ISO GR: PEN RED 
160 GR: G0T0-15, -20 
170 GR:DRAWT0-15,0 
180 GR:DRAWTQ5„0 
190 GR:DRAWT05,~20 
200 GR:GQT020, 10 
210 GR: DRAWT060, 10 
220 GR:DRAWT060,~20 
230 GR : DRAWT020 , -20 
240 GR: PEN BLUE 
250 GR:G0T030„-20 
260 GR:DRAWT030,5 
270 GR:DRAWT050,5 
280 GR:DRAWT050,-20 

290 T: THERE ONCE WAS A" TOWN NAMED 

300 T:SCOTTSTOWN. 

310 PA: 200 

320 GR: CLEAR 

330 PA: 30 

340 GR : G0T0-75 , -3 1 

350 GR: DRAWTQ— 75, 30 

360 GR: DRAWTO-25, 30 

370 GR: DRAWTO-25, -31 

380 GR:G0T0-65,-31 

390 GR:DRAWT0-65,-10 

400 GR:DRAWT0-35,-10 

410 GR:DRAWT0-35,-31 

420 GR:G0T0-65, 10 

430 GR:DRAWT0-65,20 

440 GR:DRAWT0-55,20 

450 GR:DRAWT0-55, 10 

460 GR: DRAWTO-65, 10 

470 GR:GOTO-45, 10 

480 GR:DRAWT0-45,20 

490 GR:DRAWT0-35,20 

500 GR:DRAWT0-35, 10 

520 GR:G0T030,-31 

530 GR:DRAWT030,30 

540 GR:DRAWT079,30 

550 GR: G0T040, -31 

560 GR:DRAWT040,-10 

570 GR:DRAWT070,-10 

580 GR:DRAWT070,-31 

590 GR:G0T040, 10 

600 GR:DRAWT040,20 
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600 GR: DRAWT040, 20 ) 
610 GR: DRAWT050, 20 
620 GR:DRAWT050, 10 
630 GR:DRAWT040, 10 
640 GR:G0T060, 10 
650 GR:DRAWT060,20 
660 GR:DRAWT070,20 
670 GR: DRAWT070, 10 
680 GR : DRAWT060 , 1 0 

690 T: AND IN THIS TOWN WERE TWO HOUSES 
700 T: THAT LOOKED JUST ALIKE. 
710 PA: 250 
720 GR: CLEAR 
730 PA: 30 

740 GR:G0T0-40,-10 
750 GR: PENRED 
760 GR: DRAWTO-30, 10 
770 GR:DRAWT0-40, 10 
780 GR:DRAWT0-40,20 
790 GR : DRAWTO-30 , 20 
800 GR: PEN RED 
810 GR:DRAWT0-25,20 
820 GR: DRAWTO-25 , 25 
830 GR: GOTO- 15, 25 
840 GR:DRAWT0-15,20 
850 GR:DRAWT00,20 
860 GR: DRAWTQO, 10 
870 GR : DRAWTO- 10,1 0 
880 GR: DRAWTQO, -10 
890 GR : DRAWTO— 40 ,-10 
900 GR : G0T0-30 ,-10 
9 1 0 GR : DRAWTO-30 , -25 
920 GR:DRAWT0-35,-25 
930 GR : DRAWTO-35 , -30 
940 GR:DRAWT0-25,-30 
950 GR : DR AWTO-25 ,-10 
960 GR:G0T0-20,-10 
970 GR : DR AWTO-20 , -30 
980 GR: DRAWTO- 10, -30 
990 GR: DRAWTO- 10, -25 
1000 GR: DRAWTO- 15, -25 
1010 GR:DRAWT0-15,-10 
1020 GR:G0T020,-10 
1030 GR: PEN YELLOW 
1040 GR:DRAWT030, 10 
1 050 GR : DRAWT020 , 1 0 
1060 GR:DRAWT020,20 
1 070 GR : DRAWT030 , 20 
1080 GR:DRAWT035,20 
1090 GR: DRAWT035, 25 
1100 GR:G0T045,25 
1110 GR:DRAWT045,20 
1120 GR:DRAWT060,20 
1 1 30 GR : DR AWT060 ,10 
1 1 40 GR : DRAWTOSO , 1 O 

150 GR:DRAWT060,-10 
1160 GR:DRAWT020,-10 
1170 GR:G0T030,-10 
1180 GR:DRAWT030,-25 
1190 GR:DRAWT025,-25 
1200 GR:DRAWT025,-30 



Vicky page 2 
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1 200 GR : DRAWT025 , -30 

1210 GR:DRAWT035,~30 

1220 GR:DRAWT035,-10 
^230 GR: GGT040, -10 
™240 GR : DRAWT040 , -30 

1250 GR:DRAWT050 5 -30 

1260 GR: DRAWT050, -25 

1270 GR:DRAWT045,-25 

1 280 GR : DRAWT045 ,-10 

1290 GR: PEN RED 

1300 GR: G0T0-30, 35 

1310 GR:70 (DRAWl ; TURNS) 

1320 GR: PEN YELLOW 

1330 GR:G0T030,32 

1340 GR:70 ( DRAW 1 ; TURNS) 

1350 T: AND INSIDE THESE TWO HOUSES 

1360 PA: 200 

1370 T: WERE TWO LITTLE GIRLS WHO 

1380 PA: 200 

1390 T: LIVED INSIDE. 

1400 PA: 200 

1410 GR: CLEAR 

1420 PA: 30 

1430 GR:G0T0-25,-15 

1440 GR: DRAWTO-40, -31 

1450 GR : GOTO— 25 ,—15 

1460 GR: PEN BLUE 

1470 GR:DRAWT0-1 0,-31 

1480 GR: PENRED 

1490 GR:G0T0-25,-15 
W l 500 GR : DRAWTO-25 , 1 0 

1510 GR:G0T0-25, -5 

1520 GR: DRAWTO-50, 15 

1530 GR:G0T0-25,-5 

1540 GR:DRAWT0-10 ? 15 

1550 GR: G0T0-35, 20 

1560 GR : 70 < DRAW 1 ; TURNS ) 

1570 GR:G0T020,-31 

1580 GR: PENRED 

1590 GR:DRAWT040,-10 

1600 GR:G0T060,-31 

1610 GR:DRAWTQ40,-10 

1620 GR: PENBLUE 

1630 GR:G0T040,-10 

1 640 GR : DRAWT040 , 1 0 

1650 GR: PEN YELLOW 

1660 GR:G0T040,-5 

1670 GR:DRAWT020,20 

1680 GR:G0T040,-5 

1690 GR:DRAWT060,20 

1700 GR:G0T030,20 

1710 GR:70 ( DRAW 1 ; TURNS ) 

1720 T: AND IN THESE LIVES OF THE TWO 

1730 PA: 250 
^1740 T: GIRLS WHO LOOKED ALIKE WHO 
^750 PA: 250 

1760 T: LIVED IN HOUSES THAT LOOKED 

1770 PA: 250 

1780 T: ALIKE , WAS TWO BOYS WHO LOOKED 
1790 PA: 250 

1800 T: ALIKE. 83 
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1800 T: ALIKE. 

1810 PA: 250 

1820 GR: CLEAR 
^830 PA: 30 
^1840 GR:G0T0-70,-20 

1 850 GR : DRAWTO-70 , 20 

1860 GR:DRAWT0-10,20 

1870 GR : DRAWTO- 1 O , —20 

1 880 GR : DRAWTO-70 „ -20 

1 890 GR : G0T0-40 , 20 

1900 GR:DRAWTQ-40,45 

1910 GR:G0T0-50,35 

1920 GR:DRAWT0-30,35 

1 930 GR : G0T0-50 , -20 
1940 GR:DRAWT0-50,0 

1950 GR:DRAWT0-30,0 

1 960 GR : DRAWTO-30 , -20 

1970 GR:G0T0-60,0 

1980 GR: GOTO 10, -20 

1990 GR: DRAWTO 1 O , 20 

2000 GR : DRAWT060 , 20 

2010 GR:DRAWT060,-20 

2020 GR:DRAWT01 0,-20 

2030 GR: GOTO 40,20 

2040 GR:DRAWT040,45 

2050 GR : G0T030 , 35 

2060 GR:DRAWT050,35 

2070 GR : G0T030 , -20 

2080 GR:DRAWT030,0 

.090 GR:DRAWT050,0 

~000 GR : DRAWT050 , -20 

3010 T: AND THE TWO GIRLS THAT LOOKED 

3020 PA: 250 

3030 T: ALIKE, THAT LIVED IN TWO HOUSES 
3040 PA: 250 

3050 T: THAT LOOKED ALIKE THAT LOVED 
3060 PA: 250 

3070 T:TWO BOYS THAT LOOKED ALIKE 
3080 PA: 250 

3090 T: GOT MARRIED IN TWO DIFFERENT 
4000 PA: 250 

4010 T: CHURCHES THAT LOOKED ALIKE. 
4020 PA: 250 

4030 T: WHAT A HAPPY EVENT. 
4040 PA: 250 

4050 T: WRITTEN AND DRAWN BY VICKY 
4060 PA: 250 



WEB 




20 FULL 

30 TURN 5 

40 BACKGROUND BLUE 

50 SPEED: 1 

60 PEN SILVER 

70 C:#T=10 

80 *START 

90 TURN 24 

110 U:*TRI 

120 C:#T=#T+1 

130 J:*START 

170 *TRI 

1 80 GR : 3 ( DR AW#T ; TURN 1 20 ) 

190 E: 
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1 CLEAR 

5 PEN YELLOW; TURTLE OFF 

10 U: ^SHIELDS 

20 U:*TANK 

25 U: *MUSIC 

30 Us*TEXT 

32 B0T030,0 

35 Us *PERSON 

40 Us *FIRE 

50 Us fcPERSONERASE 

60 Us *MISSHOT 

65 Us *PERSONERASETWO 

80 Us fcLINERASE 

85 PENYELLOW 
90 Us *ARMY 
100 Us *MUSIC 
105 Us *SHQTTWO 
110 Us fcTANKERASE 
999 Es 
1000 * PERSON 
1010 PAs#T 

1 020 4 ( DRAW7 ; TURN90 ) 
1 030 G05 j TURN90 ; G02 ; G03 
1 040 TURN90 ; G03 ; TURN90 ; DRAW3 
1050 G0-1;TURN-90;G02 
1060 DRAW 10 
1070 TURN45; DRAW8 
1080 GQ-8;TURN-90;DRAW8$G0-8 
1090 TURN225; G07 
1 00 TURN90 ; G07 ; TURN 1 80 5 DRAW 1 4 
1 10 Es 
1160 *TANK 
1170 GOTO-70,0 
1180 DRAWTO-70,-10 
1190 DRAWTO-30, -10 
1200 DRAWTO-20,0 
1210 DRAWTO-30, 10 
1220 DRAWTO-60, 10 
1230 DRAWTO-70,0 
1240 Es 
1250 * SHI ELDS 
1260 GOTO -79,40 
1270 DRAWT079,40 
1280 G0T0-79,-30 
1290 DRAWT079, -30 * 
1300 Es 
1310 *FIRE 
1320 GOTQ-20,0 
1330 DRAWT02S,0 
1340 DRAWTO 30,0 
1345 DRAWTO 29,0 
1350 PENERASE 
1355 DRAWT031,0 
1360 DRAWT029,0 
1365 DRAWTO- 18,0 
367 Es 

370 *PERSONERASE 
1375 PA s 16 
1380 G0T030,0 
1390 TURNTOO 
1400 PENERASE 
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1400 PENERASE 
1410 Uz *PERSON 
1420 TURNT090 
430 PEN YELLOW 
'440 607040,-10 
1450 U:*PERSQN 
1460 Ez 

1470 *MISSH0T 
1480 GOTO- 18,0 
1485 TURNTO 45 
1490 DRAW 53 
1500 *DOWN S0z20 
1503 DRAW1 

1505 PAzO 

1506 TURN 180 
1510 PAs#T 
1520 DRAW 55 
1530 PAz#T 
1540 SOz 18 
1545 PEN YELLOW 
1550 GOTO 19, 37 
1560 DRAWT038 !1 -9 
1562 Ez 

1570 *PERSONERASETWO 
1580 PAz 10 
1590 G0TQ40,-10 
1600 TURNT090 
1610 PENERASE 
1620 Uz *PERSON 
625 PEN YELLOW 
630 E: 
1640 *LINERASE 
1645 PEN ERASE 
1647 PAzO 
1650 GOTO 19, 37 
1660 DRAWT038,-9 
1670 GOTO- 18, 6 
1680 TURNT045 
1690 DRAW55 
1700 DRAW1 
1710 TURN 180 
1720 DRAW55 
1725 Ez 
2000 *TEXT 

2003 Tz ZOLTAR VERSES MYROW 
2005 Uz*TRILL 

2010 Tz THE PLANET OF ZOLTAR THE GREAT 

2011 Uz*RONI 
2015 PAz 50 

2020 Tz HAS BEEN INVADED. 

2021 Uz*PONY 
2025 PAz 50 

2030 TzAND NOW ZOLTAR MUST STOP MYROW 

2031 Uz*TUNA 
2035 PAz 50 

040 T z FROM DISTROYING THE PLANET. 

041 UzfcTRILL 
2045 PAz 50 

2050 Tz ZOLTAR KNOWS THAT HE MUST 
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2050 
2051 
2055 
2060 
061 
2065 
2070 
2071 
2075 
2080 
2081 
2085 
2090 
2091 
2 1 00 
21 10 

2111 
2120 
2121 
2125 
2 1 30 
2131 
2135 
2 1 40 
2141 
2145 
2150 
2151 
2160 
170 
180 
2190 
2200 
2210 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
^440 
450 
460 
2470 
2480 
2490 
2500 



T: ZOLTAR KNOWS THAT HE MUST 
Uz *RQNI 
PA : 50 

T: ATTACK MYROW WHEN HE IS OFF 
U: *PONY 
PA: 50 

T: GUARD- THE RISK THAT ZOLTAR IS 
Us *TUNA 
PA s 50 

T: TAKING IS A GREAT ONE. IF MYROW 
U: *RONI 
PA : 50 

T: FINDS OUT ABOUT HIS PLAN THE 
U: *PONY 
PA : SO 

T: PLANET WILL BE DISTROYED. 
U: *TRILL 

Ts ONE DAY MYROW WAS WALKING ALONE 
U: *TUNA 
PA: 50 

T:ON HIS PLANET. ZOLTAR WAS WAITING 
U: *PONY 
PA: 50 

T: KNOWS THE ATTACK MUST BE NOW OR 
U: *RONI 
PA : 50 
T : NEVER ! 
U: *TRILL 



SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 
PA 
SO 



26 
#T 
5 

#T 
25 
#T 
24 
#T 
7 

#T 
23 
#T 
8 

#T 

22 
#T 
9 

#T 
21 
#T 
10 
#T 
20 
#T 
1 1 
#T 
19 
#T 
12 
#T 
18 
#T 
13 
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2500 
2510 
2520 



SO: 13 
PA:#T 
SO: 17 
PA:#T 
SO: 14 
PA:#T 
SO: 16 
PA:#T 
SO: 15 
PA: #T 
SO : 0 




2560 
2570 
2580 
2590 
2599 
2600 



E: 



4000 *ARMY 

4001 TURNTO O 

4004 TURN-45 

4005 TURN90 

4007 TURN45 

4008 TURN90 

4009 TURN 180 

4010 G0TQ70,0 
4015 U:*PERSON 

4020 B0T050,0 

4021 TURN90 
4025 U: *PERSON 
4028 TURNTOO 
4030 G0T030,0 

4040 Ul * PERSON 

4041 E: 

4042 *SHOTTWO 
^K>43 PEN RED 
WK>45 DRAW48 

4046 TURNT0270 

4047 PA: 180 

4048 PENERASE 

4049 DRAW1 

4050 TURN 180 

4051 DRAW49 
4055 E: 

4080 *TANKGQNE 

4999 *MUSIC 

5000 C:#T=7 
5010 U: # TRILL 
5012 U:*TUNA 
5014 U: *PONY 
5016 U: *RQNI 
5025 E: 

5029 *TRILL 

5030 PA:#T 
5040 SO: 15 
5050 PA:#T 
5060 SO: 17 
5070 PA:#T 
5080 SO: 13 
5090 PA:#T 
5100 SO: 17 

5110 PA:#T 
^5120 SO: 15 
5130 PA:#T 
5140 SO: 15 
5150 PA:#T 

5 1 55 SO i O g g 

5170 E: 

5200 *TUNA SO: 13 Copyright Atari, Inc., 1983. All rights reserved 
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\_J X- %J K J 


*TI ll\iA 

^ 1 LJIMri 


cn. 1 "T 

dw i A w 




PA * 


Tf 1 




O LJ 1 


1 1 




PA ! 


1 TT 1 


JjL*TV 


3U 1 


1 1 vJ 




PA • 

~ f"l I 


1 Tf 1 




qn- 


• 17 




PA ! 


1 TT 1 






1 A O 




PA « 


1 TT I 




Qn « 

OU 1 


• 1 T 


jo 1 Q 


PR ! 


J Tf 1 


5320 


SO: 


: 12 


v _j ._•» .ji KJ 


o/\ 1 
rR ! 


■ 4* T 

1 Tf 1 


5*^40 




: 12 




PA: 


! ttT 


" == ^ * == i 


SO: 




s— J •«.* \_J *.* 


E: 




\~J *T v V 


*P0NY 


SO: 13 


vJ*t A V.' 


PA:#T 






! 13 




PA: 


!#T 




SO; 


! 15 


w*T w/V.' 


PAi 


!#T 


wJ CJ X.' 


SO: 


! 17 


5470 


PA; 


!#T 


5480 


SO: 


I 18 


5490 


PA: 


!#T 


5500 


SO: 


1 17 


Iti 162 ; 1 0 


PA s 


i#T 




SO: 


: 15 


V.' 


PA: 


t#T 




SO: 


! 13 


%-f \mf W 


PA: 


,#T 


55AO 

w w w v 


SO: 


10 


5570 


E: 




5 A GO 


*R0NI 


SO: 12 


56 1 0 




PA:#T 


5620 




SO: 8 


5 A 7:0 




PA:#T 


564G 




SO: 10 


«=r A«~n 




PA:#T 


JOOv 




SO: 12 


00 / v.* 




PA:#T 


JOQv 




SO: 13 


JO/v 




PA:#T 






SO: 0 


■571 O 




PA:#T 






SO: 13 


5730 




PA:#T 


5740 




SO: 13 


vj / JV 




PA:#T 


w/ OV.' 




SO : 0 


CJ77A 


E: 




c;qqq 

/ / / 


♦TANKERASE 




GR: PEN ERASE 


60 1 0 


Ue *tank 


6020 


E: 
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PILOT BOOK 2 OVERVIEW 
ATARI SUMMER CAMP CURRICULUM 1983 

Many children want to learn programing so they can 
w r i t e t h e i r o w n v i d e o g a m e s ♦ T h e m a t e r i a 1 i n t h i s b o o k h a s 
been designed to help them do Just that* In the process of 
achieving this goal they will learn to use Many of the 
fundamental concepts of computer science while creating their 
own stories and games* They will learn to use string 
variables while writing madlib stories * conditional branches 
with riddles and branching stories? and numeric variables and 
loops with number guessing games* 

It is expected though not essential that campers using 
this curriculum will have had some previous programming 
experience* No prior experience with PILOT is necessary* but 
the pace at which the mater ail proceeds may be too swift for 
someone who has never written even the simplest program* 

Some parts of the curriculum include applications 
involving some of the music and turtle graphics material 
presented in Book 1* This material can be used to enhance 
the camper's programs and broaden their understanding* but 
the curriculum as a whole does not depend on any familiarity 
with it* How much these applications are used should depend 
on the background and interests of the individual campers* 

The cur r Icu 1 urn i s d i v i ded i nt o seven sequent i a 1 un i t s ♦ 
In each unit a new concept is introduced with several diverse 
examples of ways in which it can be applied* After exploring 
these examp 1 es the camp er s will cr eate the i r own 
a p p 1 i c a t i o n s * Ea c h u n i t i n e 1 u d e s a r a n g e o f a d d i t i o n a 1 
challenges involving the same concept* It is not essential 
to do the challenges in order to understand later units in 
the sequence* however spending some time on them should 
s t r e n g t ft e n t h e c a m p e r s ' g r a s p o f t ft e c o n c e p t b e i n g e o v e r e d * 
How much time is spent should depend on the interests of the 
c a m p e r s * h o w q u i c k 1 y t ft e y c o m p r e h e n d t h e n e w ma t e r i a 1 ♦ and 
h o w m a n y o f t ft e u n i t $ y o u a r e t r y i n g t o c o v e r * 1 1 i s not 
n e e e s s a r y t o c o m p 1 e t e a 11 s e v e n u n i t s i n t w o w e e k s o f c amp* 

T ft e c h a 1 1 e n g e s a 1 s o provi d e p 1 e n t y o f m a t e r a i 1 f o r 
c a m p> e r s w h o h a v e a 1 r e a d y s t u d i e d s o m e o f t h e s e c o n c e p t s o r 
a r e r e p e a t i n g t ft e c o u r s e * M a n y o f t ft e p r o j e c t s that a r e 
s u g g e s t e d c o u 1 d t a k e s e v e r a 1 d a y s t o e o m p 1 e t e * T h e y a r e 
o p e n - e n d e d i n ri a t u r e a n d s u b J e c t p r i m a r i 1 y t o t he 1 i m i t s o f 
t ft e c a m p e r s ' i ri t e r e s t a n d i m a g i n a t i o n * A d i v e r s e r a n g e o f 
a p p 1 i c a t i o n s ft a s b e e n s u g g e s t e d i n t ft e h o p e t ft a t e a c ft c a m p e r 
w i 1 1 b e i ri s p i r e d t o p r o d u e e some p o J e c t o f p a r t i c u 1 a r 
i i~i t e v e s t t o h i m o r ft e r * 
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OUTLINE FOR BOOK 2 
ATARI SUMMER CAMP CURRICULUM 1983 



This includes an introduction to variables^ conditionals 
and loops through madlib stories ♦ illustrated riddles, 
animation ♦ and games* 



SESSION MATERIAL 

1 Unit 1* General Introduction* Run samples of the 
kind of projects we will be doing* 

2 Unit 2* Madlib stories and string variables* 

3 Unit 2* Illustration of stories using character 
graphics ♦ 

^ Bank Street Writer* Send a letter hoMe* Finish 

stor ies ♦ 

5 Unit 3* Riddles* The Match statement* 

6 Unit 3* Riddles* Giving clues and keeping score* 

7 Unit 3* Word games and branching stories* 

8 Unit ^ Numeric guessing games* General 
conditional statements ♦ 

9 Unit ^* Counting loops* Number sequences* 

10 Unit 5* Applications of randomness* Random 

numbers in defined ranges* 

11 Unit 5* Random word selection and random story 

elements* Randomness in games* 

12 Unit 6* Static animation and placement of images 

anywhere on the screen* 

13 Unit 6* Movement of images* Design of projects* 

14 Unit 6* The robot turtle* Review of turtle 

graphics* Animation in turtle graphics* 

15 Unit 7* Control of animation from the keyboard or 

a Joystick* Timing of input* Joystick control of 
the turtle* 

16 Unit 7* Simple adventure games* Passing 

inf or mati on ♦ 

17 - 18 Finish projects* 
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Notes to the Instructor 



o save to the disk 



PILOT 



SAVE D: NAME 



BASIC 



SAVE "D: NAME 



To run a program -from 
di sk 



RUN D:NAME 



RUN" D: NAME 



To load -from the disk 



LOAD D: NAME 



LOAD 11 Dz NAME 



To list to the printer 

To save a piece o-F a 
program 



SAVE P: 



SAVE D: NAME line#,line# 



LIST "Ps 



LIST n D: NAME" , line#, line# 



To retrieve same piece 



MERGE D: NAME 
or APPEND D: NAME 
(APPEND renumbers the appended 
program to -follow the current 
program. ) 



ENTER M D 2 NAME " (ENTER merges 
the text with the current 
program. ) 




To use the Epson printer -for (picture) screen dumping the computer must be 
turned o-f-f, insert the macrotronics disk, turn on the computer, when 
question is asked PRINTER (0-4)? type 3. Remove disk and load the program 
you wish to copy. When picture i s on screen and stopped on screen, type 
CTRL P. 
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Book 2 Unit 1 Introduction to Each Other and the Curriculum 
Tine - 1 session 



Key Concepts 

Introduction to instructors and each other 
Types of programs we will be writing 



Prerequisites 

Fawilarity with the notion of a program as a sequence of 
instructions 

Experience typing in and waking changes in prograns 

New Statements 
LOAD \ 

RUN > in BASIC and PILOT 

ne:w / 



Mater ials 

Personal progran disks 

BASIC ear tr idges 

Notes to the Instructors 

Instruction sheet for personal and Mystery person data 

base 
PILOT II Disk 

PILOT Book 2 Utility Disk: INCIDENT, SAPHIRE, STRGUESS , 

INOUT, SPHINX 
Control Graphics Keyboard Picture 



C o p y r i g h t A t a r i , I n c * > 1983 ♦ A 1 1 r i g h t s r e s e r v e d ♦ 



Book 2 Unit 1 



Activity Outline 

1* Instructors should introduce themselves to the 
canpers in the class ♦ 

2* Have campers insert ATARI BASIC cartridges into 

their computers and then RUN the PERSONAL program 
on the Personal program disk* Follow the 
instructions on the personal program instruction 
sheet for using the PERSONAL and MYSTERY PERSON 
program ♦ 

3* Tell the campers that they will be writing stories* 
riddles* and games in the PILOT programming 
language* As examples of the kinds of programs 
they might write by the end of camp have them run 
some of these programs* 

INCIDENT 

SAPHIRE 

STRGUESS 

INOUT 

SPHINX 

Encourage them to explore these programs and others 
on the disk at their leisure* They should also 
start thinking about possible content ideas for 
similar games and stories of their own* 
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Book 2 Unit 1 



Chal l.enges 

!♦ See what pictures you can Make on the screen in the 
ATARI Me«o Pad* (To do this turn on the coMputer 
without a disk or a cartridge*) 

2* Start planning a nadlib story* 



Teaching Tips 

1* Before running the PILOT prograws the cawpers will 
need to take the BASIC cartridges out of their 
Machines and boot the PILOT II disk* Then the Book 
2 Utility disk can be inserted and the programs can 
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Book 2 Unit 2 



Mad 1 i b star i es 



Estimated Ti^et 3—4 sessions 



Key Concepts 



String var iables 
Character graphics 

Screen layout and presentation of graphic and textual 

information 
Story wr iting 



P r e r e q u i s i t e s 



Familiarity with the concept of a program as an editable 

s e q u e n c e of i n s t r u c t i o n s 
Familiarity with the* ATARI keyboard 
Familiarity with program editing 

Eamiliarity with the LOAD, SAUEI * and RUN commands on the 
ATARI 



New Statements 



T* Tt ♦ ♦« A* ^string variable 

U* F'<EN LETTERS ♦ large * Medium f or small 



Materials 

PILOT Book 2 utility disk? MADCAMP, FRANK f E'.ASKET f 

TALE f JINGLE > INCIDENT f PICTURE, LETTERS 
Mad Lib -books 
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Book 2 Unit 2 



Activity Out 1 i no? 

1* Have the campers LOAD and RUN the following 

examples on the disk: MADCAMP ♦ FRANK* BASKET ♦ 

tale:, jingle* 

2* Explain that the campers will be writing similar 

stories of their own* The two things they need to 
know to do this are how to wake text appear on the 
screen (T*) and how to store answers to questions 
and use these answers as part of the text 
(At ^string and T*$string*> Varying degrees of 
explanation of these two points will be needed 
depending on the experience and sophistication of 
the caMpers* SoMe possibilities for this are 
suggested in the teaching tips below* 

3* Help campers create their own stories* Explain 
LARGE and MEDIUM letters to those who are 
interested ♦ 

^* Have the campers create illustrations for their 

stories using character graphics* Put pictures of 
More than a few lines in separate Modules and use 
the U* statement to display theM* 

5* Help the campers learn to use the position 

statement to for Mat their stories and graphics so 
that they are easy to read* E'.e sure they use the 
RETURN key to control paging* The screen is 
cleared in a prograM by typing Tt* pressing ESC* 
and then pressing SHIFT CLEAR ♦ 
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Book 2 Unit 2 



Challenges 

lv Calipers interested in faming plurals* compound 

words ♦ and other combined strings can be refered to 
the FRANK prograM where strings are concatenated to 
torn ♦ANIMALS froM ^ANIMAL and S* 

2* Stories can also be illustrated with turtle 

graphics* but there is less rooM for text on the 
split screen* 

3* Stories can be enhanced with sound effects and 
Music* CaMpers unfamiliar with SO* and PA* can 
exploe the Material froM Book 1* Units 3 and ^* 
^* CaMpers anxious to explore an i Mat ion can follow the 

style used to blink the stars in JINGLE* 
5* Point out the differences in the way the two 
illustrations in MADCAMP are printed* In 
particular call attention to the use of the cursor 
control arrows in lines ^70 to ^7^ which reposition 
the cursor before the next line is printed* (These 
can be printed in a T* statement by first pressing 
ESC and then CTRL and the arrow key* When the 
pr ograM is run the coMputer Moves the cursor 
instead of printing the arrows*) These Make it 
easy to place the picture any place on the screen 
by changing only the POS statement on line ^60* 
Encourage the caMpers to explore putting the saMe 
picture in several different places on the screen 
using this technique * 
6* CaMpers already familiar with the Mi statement 
should be able to Make their programs gender 
specific* For exaMple* FRANK currently refers to 
the caMper as he* This can be iMproved by adding 
the following lines* 

212 PQS:2,17 

214 T ♦ ARE YOU A BOY? \ 

216 At 

218 M ♦ Y 

220 CYJ*HE*He 

222 CN**HEi>She 
and changing the instances of 'he' in lines 330 and 
^30 to §HE« 

7* CaMpers already t ami liar with the randoM function 
c a n a d d r a n d o m e 1 e m e n t s t o t heir s t o r i e s a s i n 
INCIDEINT* In addition to Making individual words 
depend on a randoM choice whole paragraphs and the 
outcoMe of the story can depend on randoMness or on 
answers to questions preceeding the story* 

8* CaMpers with previous experience in character 

a n i m a t i o n c a n a d d a n i m a t i o n t o t h e i r stories as i n 
INCIDENT* 
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Book 2 Unit 2 



Challenges 

9* Sophisticated progra«Mers May be interested in 

exploring lists using the LETTERS program* First 
they should RUN and LIST it* Then they Might try 
the following problems J 

a* Only print the first letter of the word* 
b* Only print the fourth letter of the word* 
c* Print every other letter in the word* 
d* Only print the last letter in the word* 
e* Count how Many letters there are in the 
wor d ♦ 

f* Count how Many tiMes the letter £ appears 

in the word* 
g* Separate the word into vowels and 

consonants ♦ 
h* Print the word out backward* 



Teaching Tips 



1* The technical points that need to be covered for 
writing Mad lib stories can be suMMarized by 
listing and discussing lines 20 to 60 and 360 to 
3S0 in the? E'.ASKEIT prograM* For caMpers with a 
Mini mum of experience it May be a good idea to have 
theM first print a short paragraph using Just T* to 
get faMiliar with how it works* 

2* It May be helpful to deMonstrate the storage of 

inforMation with variables by putting the variable 
naMes (e*g* (SCHOOL* $ ANIMAL* etc*) on soMe boxes 
and then running through the prograM line by line 
using the START key* When a variable naMe appears 
in an A* stateMent the answer can be written on a 
slip of paper and put in the? box with that variable 
naMe* When a variable naMe appears in a T* 
stateMent* look in the box to see what value the 
variable has* (If the box is eMpty PILOT types the 
var table naMe ♦ ) 

3* People are often confused when first trying to 

w r i t e a n i n t e r a c t i v e 5 1 o r y b e c a u s e i t i s d i f f i c u 1 1 
to put oneself in the position of the reader of the 
s t o r y ♦ T h e s i t u a t i o n i s a n a 1 a g o u s t o t hat of 
children first learning to write* They can't 
appreciate the point of view of soMeone trying to 
read what they are writing* A fairly direct way of 
dealing with this problem is to encourage theM to 
Make their first story short so they can quickly 
get to the point of seeing soMeone else react to 
it* N u r s e r y r h y m e s a r e a g o o d s o u r c e o f m a t e r i a 1 
f o r s h o rt m a d 1 i b s ♦ 
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Book 2 Unit 2 



Teaching Tips 

*♦ One of the simplest approaches to drawing character 
graphics illustrations is to clear the screen and 
then design a pictue using standard and control 
chaacters* Inverse characters can be created using 
the ATARI key <>MO* Characters can he erased 
using the space bar* The cursor should be Moved 
with the control arrows* DON'T press the RETURN 
key or PILOT will try to interpret your picture and 
print an error Message in it* 

Once a satisfactory picture has been created line 
nuMbers and Tt stateMents should be printed at the 
beginning of each line* If there isn't enough rooM 
for these stateMents the insert key can be used to 
Move each line of the picture to the right* If 
this is confusing another approach is to load and 
list the prograM PICTURE which will put line 
nuMbers and T* stateMents on the screen before the 
picture is drawn* In either case it does not 
Matter where on the screen the picture is created* 
Each line of the picture can be Moved left or right 
using the control delete or control insert keys to 
the left of the picture* It can be positioned 
anywhere vertically using the Position statement* 
Pictures can be Moved to another part of a prograM 
or froM one prograM to another using the RENuMber ♦ 
SAME Dt line** line** MERGE* and APPEND coMMands* 
5* Character graphics illustration can be frustrating* 
It is quite possible to get a picture in your Mind 
that can't be created with character graphics* A 
different approach is to explore character graphics 
before* thinking of specific pictures and just see 
what kinds of iMages you can coMe up with* Then 
write a story to go with the iMages* This approach 
can also help over co Me the problems kids have in 
COM3, n g i j p w i t h i d e a s f o r m a d 1 i b s t o r i e s * T h e 
creation of illustrated Madlib stories with this 
approach is sUMMarized by the following steps? 
a* Draw a character graphics (or turtle 

gr ap h i cs ) p i c t ur e ♦ 
b* Write a little story about it* One or 

t w o p a r a g r a p h s i s f i n e ♦ 
c » At r a ri d o m g o t h r o u g h t h e s t o r y a n d 

u n d e r 1 i n e s o m e of t h e w o r d s * 
d* For each word Make up a question which 

t h a t w o r d m i g h t a n s w e r ♦ W h e n p r e s e n t e d 

as a gaMe this can be a fun activity in 

i t s o win r i g h t ♦ e s p e c i a 1 1 y f o r c a m p e r s 

w o r k i n g i n s m a 1 1 g r o u p s ♦ 



» 
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Book 2 Unit 2 



Teaching Tips 

e* Ask each question with a T* statement ♦ 

Accept the answer with a variable naMe to 
store the answer ♦ 
f* Replace each underlined word in the story 
with its corresponding variable naMe* 
Then tell the story using T* statements* 
SoMe words like articles or adverbs like not don't 
work too well and can be avoided in step c ♦ above* 
Words that are repeated can be particularly fun* 
especially when they are used with More than one 
Meaning ♦ It's fine for the caMpers to pick words 
at randoM at first and then develop their own rules 
like these* 



Cross Ref erence 

A* Manuals: PILOT Priner pages 26-30* 67-78* 182-18^ 

Student PILOT pages 12-13* 103-105 

B * Books? A Book of Puzzlements f Herb Kohl 
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Book 2 Unit 3 



Riddles 



Estimated Tine X 2 sessions 



Key Concepts 

The Match statement 
Conditional statements 
Modules and labels 
NuMeric variables 
Riddles* clues , and scoring 
Branching stor ies 



Pr equisite Statements 

IX A J POSJ REN UX 



New Statements 

m: ty: tn: j: jy: jn: 

rx jmj c:*sc0re=#sc0re+1 cyt chx 
append merge 



Mater ials 

PILOT Book 2 utility disk X RABBIT , RIDDLES, SUGAR, 

INCUT, SPHINX 
Riddle and Joke books 
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Book 2 Unit 3 



Act i vi ty Out 1 i ne 

1# Have the campers LOAD and RUN the following 

examples on the utility disk: RABBIT ♦ RIDDLES ♦ and 
SUGAR ♦ 

2* Point out that the way the progrsw responds depends 
on how the person using the program answers the 
riddle 4 If the user answers correctly the program 
does one thing while if he answers incorrectly it 
does another ♦ Explain the use of M* to Match what 
the person types with the correct answer and the 
use of TY* and TUX to type responses dependent on 
the outcome of the Match* 

3* Have each camper Make an illustrated riddle 

program* Encourage then to use separate Modules 
for their i 1 lustrations ♦ 

^* As caMpers finish their riddles use SUGAR to 

introduce theM to Modules* J*** JY X ♦ and JNi* Then 
have theM add clues to their riddles or write new 
riddles with clues* 

5* Use RIDDLES to show canpers how to keep score* 
Then have theM write a score keeping prograM by 
combining two or More riddles using MERGE or APPEND 
and possibly RENuMber ♦ 

6* Continue to emphasize use of the position statement 
to Make the screen look well balanced and easy to 
r e a d * 

7* Have each camper play INOUT and then Modify it to 
Make up a rule of his or her own* 

8 ♦ H a v e t h e c a m p e r s r u n S P H I N X a n d t h e n s t a r t w o r k i n g 
on branching stories of their own* They can 
continue working on these stories during their free 
time ♦ 
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Challenges 

t« Add reward sounds and failure sounds to riddles* 

2* Modify madlib stories to reflect differences in 

gender* This is described More fully in challenge 
6 of Unit 2* 

3* Story branches like those in SPHINX can also be 
incorporated in m ad 1 ih stories* 

^* Use the MS J (watch string) statement to explore 

some subtle possibilities for the INQUT game* How 
this can be done is described in the teaching tip 
on INOUT hel ow ♦ 



Teaching Tips 

1* Befoe explaining M** TYt* and TN* it is helpful to 
get the campers to explain to you what happens 
differently when different answers are given to the 
riddle* Then ask then how they would do this to 
arouse their -curiosity and interest about how it 
Might be done* 

2* Increasing the value of a variable can be confusing 
so Ct#SCORE»*SCORE+l should not be used to 
introduce the coMpute statement* Start instead 
with a simpiler assignment statement* First 
discuss what the score should be after the first 
riddle and explain how this is achieved with lines 
6 0 through SO in the RIDDLEiiS program* 
Discuss the fact that if the answer to the second 
r i d d 1 e i s c o r r e c t t h e s c o r e w i 1 1 b e o n e m o r e t h a n 
it was before* Then show how the computer 
o a 1 c u late s t h i s i n 1 i n e 205* 

3* F r or campers having difficulty with the compute 
statement* conversion programs like this may be 
helpful ♦ 

T X H o w m u c h d o y o u w e i g ft ? 

AJ#EARTHHIEGHt 

c : *HaQNWEiGHT**EAR^^ 

T t 0 n t h e m o o n y o u w o u 1 d w e i g h # MOON W E I G H T ♦ 
Some other ideas for conversion programs are feet 
t o i n c ft e s * d e g r e e s f a ft r e n h e i t t o d e g r e e s 
c e n t i g r a d e * i n c h e s t o c e n t i m e t e r s * o r a g e n o w t o 
age in the year 20 0 0 or to year of birth* 
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Teaching Tips 

Some of these conversion problems involve decimals* 
PILOT works only with whole nuMbers, but 
Multiplication and division of decimals can he 
handled by representing the decimals as fractions* 
For example inches can converted to centimeters 
like this* 

C : *CEflTIMETERS*#INCHeS3ic254/i 0 0 
since there are 2* 5*1 centimeters in an inch* 
Some good ideas for conversion problems (such as 
Miles to inches) will yield numbers that don't Make 
sense in PILOT* PILOT works with numbers in the 
range -32763 to +32.767 ♦ Numbers outside this range 
'wrap around ' into this range* So for example 
adding * to 32767 will give --32765* As a result 
probleMS that deal with large nuMbers should he 
avoided ♦ 

CaMpers having probleMS with the coMpute stateMent 
can also be presented with Material in Book 1 Unit 
6 activity 2 on using C* to control the size of a 
square?* 

^* The only new stateMent introduced in the sphinx 

prograM is the JM? stateMent in line 410 and it is 
fairly easy to understand in this context* The 
difficulty in writing a branching story has More to 
do with the overall coMplexity of the prograM* 
Writing branching prograMS like SPHINX is Much 
ejasier if the various possible branches are planned 
before the prograM is written* Before creating 
such prograMS caMpers should Make a siMple Map or 
flow chart like this to show how the prograM will 
be organized* 



I 
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Teaching Tips 

Then each box in the nap can be filled in as a 
separate Module* Program organization is also 
simplified if pictures are created as separate 
Modules ♦ 

- 

5* The SPHINX program includes both branches that 

depend on the user's choice (e*g* which tunnel) and 
branches that depend on the per for nance of the user 
(e*g* correct solution to a riddle*) It also 
demonstrates the repeated use of a branch point 
( e*g* the anteroom*) This Makes it More of a cross 
between traditional branching stories and adventure 
games* 

6* The SPHINX program has a couple of shortcomings 

that the campers should be encouraged to ask about* 
The program doesn't keep track of whether you get 
the treasure* As a result you can go back after 
getting the treasure and nothing has changed* Also 
getting outside without the treasure is no 
different froM getting there with the treasure* 
How to keep track of the treasure and other items 
in an adventure will be covered in Unit 7* For now 
it is fine for caMpers to start planning adventures 
in which they would do one thing IF the treasure is 
f o u n d and a n o t h e r I F i t i s n ' t ♦ 

They May also notice that the sphinx gives theM a 5 
second time limit to solve the riddle but doesn't 
enforce this limit* Keeping track of time is an 
important feature in Many different gaMes and will 
be covered in Unit 6* 

7 * Mo d i f y i n g t h e I N 0 U T g a m e p r o v i d e s a n o p p o r t u n i t y to 
study elementary logical operations as well explore 
what Makes a puzzle interesting and challenging* 
After Modifying the game campers should try each 
other's versions of the game and see which ones 
they like the best* The stated goal in the gaMe is 
to find as Many words as you can that are IN the 
g r o u p ♦ I n f a c t t h e r e a 1 c h a 1 1 e n g e i s t o f i g u r e o u t 
t h e r u 1 e t h a t d e f i n e s t h e g r o u p ♦ 

T o h e 1 p y o u s e e w h a t s o m e o f t h e p o s s i b i lit i e s a r e * 
h e r e i s a lis t o f s e v e r a 1 p o s s i b 1 e r u 1 e s a 1 o n g w i t h 
the changes needed to encode the rule in soMe 
cases* In addition to changing the code in the 
>KREPEr.AT loop campers should be sure to change the 
example in line 60 and the explanation in line 520 
in their own versions of the program* 
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Book 2 Unit 3 



Teaching Tips 



Rule 
Words with Z 
Words without E 

Words with J or K 
Words with A and EI 



Code changes 
260 MtZ 

jn:*in 

JYtxOUT 

m : J t k 

Ml. A 

JNJXQUT 
M J E 



27 0 

28 0 
260 

262 



*60 



A-. 



60 



m: a 
m:e 



26^ 

Words without A and E 
Words without C or D 
Words with double El 
Words whose letters are 
all in the first half 
of the alphabet 
Words beginning with A 
Words ending with E 
(Note! The A* statement autowaticly puts a space 
at the beginning and at the end of the word that is 
entered* If you don't want those spaces use the 
AX J statement ♦ ) 

Words with an E and 260 
an A somewhere 262 
after the E 26^ 

266 

Words with two Es 

Words with only one vowel 
The last three rules can not be encoded without the 
use of the MS* (watch string) statement since the 
string Must be broken into pieces to make these 
checks ♦ 



ms:e 

JN:*OUT 
At BRIGHT 
MSA 



C r o s s R e fere n c e 



A ♦ 



Manual s 



PILOT Primer pages <tl-65> 76-77, 81-82 
Student PILOT pages 1^-20, 26-30, 95-97, 
101-102 



B ♦ 



B ooks 



A B a o k o f P u zzle m e n t s , H e r b K o h 1 



Other Units 



U n i t 7 - t i m e d i n p u t , pas s i n g 
information from one Module to 
another 
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Book 2 Unit 4 Number Games 

Estimated Tine* 2 sessions 



Key Concepts 

Numeric var iables 

General conditional statements 

Counting loops 



Prerequisite statements 

t: ty: tn* a: ct m: 

J! JYJ JNi ex r: 



New Statements 

(♦♦♦)♦ J ( ♦ ♦ * ) ♦ 



Materials 

PILOT Book 2 utility disk: 

SEQUENCE 
Number sequences worksheet 



NUMPATRN f STRGUESS, HURKLE * 
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Book 2 Unit 4 



Ac t i v i ty Out 1 i ne 

1* Introduce general conditional statements by writing 
a number guessing game with the whole class ♦ 

2* Have each camper create his or her own version of a 
number guessing game* Then have them try each 
others games ♦ 

3* Have the campers run NUMPATRN ♦ STRGUESS* and 

HURKLE* and then make up their own variations on 
these* These variations should include at least 
one of the challenges suggested below* 

^* Give each camper the number sequence worksheet* 

5* With the group as a whole write a program to count 
from 1 to 10* Then get the group to figure out how 
to modify it to count by twos <i*e* even numbers)* 

6* Have the campers write their own programs to print 
some of the number sequences on the number sequence 
worksheet* 

7* Have each camper use a counting loop in some other 
program* Some suggestions for possible programs 
are listed in tip 6 below* 

8* Have each camper run SEQUENCE and then write his or 
her own sequence program to do one or more harder 
sequences ♦ 
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Booh 2 Unit 4 



Challenges 

I* Modify the nunber guessing progran to give the clue 
'Much wore' or ' Much less' if the guess is wore 
than 10 away fron the secret nunber* 

2* Add other clues to the nunber guessing progr an such 
as 'the nunber is even'* or 'the nunber is not 
divisible by three*' Print each of these clues 
Just once ♦ 

3* Make the nunber guessing progran or NUMPATRN* 

STRGUESS* or HURKLE give the user a score based on 
the nunber of guesses nade before getting the right 
answer* Linit the nunber of guesses allowed* 
Limit the nunber of rounds in the INQUT gane* 

4* Modify one of these ganes to give clues using sound 
rather than text* The pitch and duration of the 
sound could be used to indicate how close you were 
or which direction you needed to go* 

5* Add a second target nunber in NUMPATRN* i*e* after 
getting a 7 as output the user should be 
congratulated and asked to try to get 19 as output 
and after getting 19 the gane would be over* 

6* Use a counting loop to play patterned nusical 

phrases* For exanple a sequence of notes going up 
one at a tine (i*e* a chronatic scale or a glis) or 
alternating back and forth between two notes (a 
trill)* More conplex patterns such as 1*2*3*2*3*4* 
3*4*5* ♦♦♦ are also interesting to explore* Any 
nuneric pattern will have a corresponding nusical 
one* 

7* Change line 30 in STRGUESS so that it only is 

printed after the first guess* Experiment with the 
clues given here* In particular try nodifying line 
64* 

8* Change the HURKLE progran to work with a vertical 
nunber line rather than a horizontal one ♦ 

9* Make a two dinensional version of HURKLE where you 
would have to detenine both the vertical and the 
h o r i z o n t a 1 p o s i t i o n o f t he h u r k 1 e ♦ 



Copyright Atari* Inc** 1983* All rights reserved* 

22 



Book 2 Unit 1 



Challenges 

10 ♦ Explore the relationship between NUHPATRN and 

nuMber sequences by studying the -sequence that 
coMes out when you put in 1 and then 2 and then 3* 
etc* With the current rule this will generate the 
sequence 3* <\ f <\ f 5* 5# ♦♦♦ Changing line ^0 to 
Ct#QUT=#IN*2~l will change the sequence to 1 ♦ 3* 5 
7* 9* ♦ ♦♦♦ the first sequence on the worksheet* 
More coMplicated sequences can be generated by 
using a different sequence as input in NUMPATRN* 
For example* using 2 ♦ 5 ♦ Q f 11 f 1*\ f ♦ ♦♦ as input 
for the current rule gives output of 4 * 5* 7* 8* 
10* ♦ ♦ ♦ 

11 « Write a program that will try to guess the user's 
secret nuMber given clues of More or less* Try to 
Make the prograM able to guess as quickly as a 
person can* 

12* Write prograMS to print the last four sequences on 
the nuMber sequence worksheet* 

13* Write a prograM to play '23 Matches' or 'NIM'* 
In 23 Matches the coMputer prints several Match 
sticks on the screen* Two players take turns 
picking up Matches* On each turn a player can tak 
1 to 3 Matches* In NIM the coMputer draws several 
piles of Matches on the screen* On his turn a 
player can take as Many Matches as he wants froM 
any one pile* In both gaMes the player taking the 
last Match wins* The coMputer can Manage a gaMe 
between two opponents or it can be one of the 
players ♦ 
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Book 2 Unit 4 



Teaching Tips 

1* As 3 whole have the class write a "riddle" program 
for this riddle* Question* What is My secret 
nunber? Answer* 23* It will look something like 
this* 

10 0 TJWHAT IS MY SECRET NUMBER? 

110 a: 

120 Mt23 

130 TY ♦ RIGHT ! 

140 TN*N0* 23* 
Then ask what clues should be given if the answer 
is wrong* The campers May have several 
suggestions* These should be encouraged and May 
lead the caMpers to developing new interesting 
prograMS* We are particularly interested in the 
clues like* "it's More than that*" or "it's less 
than your guess*" These are fairly natural clues 
for this gaMe and provide a fairly natural way to 
introduce nuneric conditionals ♦ 

After elliciting several clues you can show how to 
prograM the More and less clues* To do this we 
need to keep track of the guess so we can coMpare 
it to the secret nunber ♦ So we change line 110 to 
110 A**GUES8* Then we can replace line 140 with* 
140 T(23>#GUESS> tNO, MORE THAN THAT* 
150 T(23<#GUESS) |NO* IT'S LESS THAN *GUESS* 
We are now ready to repeat the question* In our 
previous riddles with clues (e*g* SUGAR) we would 
type the question again and then give another clue* 
Hc*re we will give the sane clues ♦ so we can Jump 
back to the question like this* 

90 *QUESTIGN 
160 J ( 23<>#GUESS > ♦ ^QUESTION 
The Jump is conditional since we don't want to 
repeat the question if the answer is right* 

2* In creating their own versions of a nuMber guessing 
gaMe or NUMPATRN * STRGUESS* or HURKLE ♦ caMpers 
should put in their own target nuMber and any other 
clues that Might be helpful* If the nuMber is 
fairly large one good clue is to provide a range 
that the nuMber is in* If this idea coMes up it is 
worth spending soMe tiMe discussing it since it 
will coMe up again in the next unit on r andoMness ♦ 
In working with large nuMbers the caMpers May 
discover that PILOT only works with whole nuMbers 
in the range froM -32768 to +32767* It is fine for 
theM to play around with this as long it doesn't 
confuse theM about how the nuMber guessing prograM 
itself works ♦ 
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Book 2 Unit 4 



Teaching Tips 



3* In exploring NUMPATRN encourage the campers to try 
changing the calculation in line ^0 as well as 
changing the target in lines 52 and 70 ♦ 

Encourage campers to figure out the weaning of the 
clue in STRGUESS* If there is one star you are one 
away* If there are 2 stars you are 2 or 3 away* 
If there are 3 stars you are 4 to 7 away* If there 
are four stars you are 8 to 15 away* Each tine you 
double your distance from the target you will get 
one wore star in the clue* 

5* In writing a program to count from 1 to 10 it may 

be easiest to start by writing an infinite counting 
loop X 

io c:#nume;;e:r==i 

20 *REPEAT 

30 T ♦ #NUMBER 

4fl C:#NUMBER==#NUMBER+:l 

50 JittREPEAT 
and then putting a limit in line 50* 

50 J ( #NUMBER<1 1 ) X ^REPEAT 

6* Counting loops have a wide range of applications* 
They can be used to print your name 10 times* 
countdown for a blastoff* print a fixed number of 
stars* limit the number of guesses you allow in a 
riddle or number guessing game* draw a fixed number 
of nested boxes or a spiral pattern of a fixed 
size* or play a sequence of musical notes as 
suggested in challenge 6 above* If you write a 
module to print a variable number of stars then you 
c a n u s e i t in a n o t h e r c o u n t i n g loop to p r i n t 

P a 1 1 e r n s 1 i k e t h e s e X 

x * * 

VI/ W VI/ VI/ \JLf \ I / \ yj 

/l\ « IV * 1% /^V • 'V t fV 

»>K>K )K>K>Ktt)« >K >K * 

\se \* wyvww i y w « 

.■r. /Tk /ft /lh /»% /A rt, /A /i\ /Y\ .t\ /r\. /i\ /is 



7* It isn't ngcessar y for the campers to finish the 

n u m b e r s e q u e n c e w o r k s h e e t ♦ I f t h e y g e t s t u c k o n a n 
earl y s e q u e n c e ♦ h a v e t h em t e 1 1 y o u h o w m u c h i t 
changes from one number to the next and write these 
increases as another sequence below the one in 
q u e s t i o n * T h e n h a v e t h e m 1 o o k f o r p a 1 1 e r n s i ri t h e 
increases* The purpose of this exercise and the 
SEQUENCE program is to give the campers some 
experience in looking for patterns and to see how 
v a r i a b 1 e s c a n b e u s e d t o c o n t r o 1 s u c h p a 1 1 e r n s * 
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NUMBER SEQUENCES 



Each of the*se sequences follows a pattern ♦ 
Co hp let e each of the sequences* 
Then describe the pattern under the sequence ♦ 
It 3 , 5 , 7 , 9 , , , 



2 , 5 , 8 , lit 1^ 



5 , 12, 19, 26 , 33 , 



2 , 3* 5 , 6 t 8 , 



5 , 9 1 16, 20, 27, 3 1 , 



1, 3, 6, 10, 15, 21 



It ^* 9 1 16* 25 * 36 , 



3, 5 t 10, 18, 29, ^3, 



1, 6, l^t 26, 41, 60, 



2, 3, 5, 8, 13, 21 



1 , 3 , 7 , IS, 31, 63, 



5, 7, 10, 20, 43, 83, 



♦ f * 
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NUMBER SEQUENCES 



Answer sheet* 

It 3, St 7, 9, 11, 13, 15 

Odd numbers* Increasing by 2 each tifie* 

2, 5, 8, tit 14, 17 f 20, 23 
Increasing by 3 each tifie* 

5, 12, 19, 26, 33, 40, 47, m 54 
Increasing by 7 each tirce* 

2, 3, 5, 6, 8, 9, 11, 12 

Increasing by 1 and then by 2 and then by 1, etc* 

5, 9, 16, 20, 27, 31, 38, 42, 49 
4747*7*7 

Increasing by 4 and then by 7 and then by 4, etc* 

1, 3, 6, 10, 15, 21, 28, 36, 45 
234 5 6789 

Increasing by 2 and then by 3 and then by 4, etc* 

It 4, 9, 16, 25, 36, 49, 64, 81 
3 5 7 9 11 13 15 17 

Increasing by 3 and then by 5 and then by 7, etc* 
Square nuwbers 

3, 5, 10, 18, 29, 43, 60, 80, 103 
2 5 8 11 14 17 20 23 

Increases equal the second sequence on this sheet* 

It 6, 14, 26, 41, 60, 82, 108, 137 
5 8 12 15 19 22 26 29 - 

3 4 3 4 3 4 3 

2, 3, 5, 8, 13, 21, 34, 55, 89 

1 2 3 5 8 13 21 34 
Increases are Just like the sequence itself* 

1, 3, 7, 15, 31, 63, 127, 255, 511 

2 4 8 16 32 64 128 256 
Keep doubling the increases or 

to get the next number Multiply by 2 and add 1* 
5, 7, 10, 20, 43, 85, 152, 250, 385 
2 3 10 23 42 67 98 135 

1 7 13 19 25 31 37 

6 6 6 6 6 6 
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Book 2 Unit 5 



Randomness 



Estimated Tine* 2 Sessions 



Key Concepts 

Randomness and random numbers 

Generating random numbers within a defined range 

Random story elements , sounds* duration of time, colors, 

designs, sizes of figures and screen placement 
Simulating chance events using computer -generated random 



New Statements 

C X #RANDOM»? 

C:#RANDOM=?\#B 

C t *RANDOM=?\ ( #B-* A+ 1 ) +# A 



Materials Required t 
PILOT Cartr idge 

Book 2 Utility Disk: RNDNUM, RNDWALK, RNDSTORY, 
RNDTUNES, LETTERS 



numbers 



Prerequisite Statements 



c:#r 
u: 



Ti 
j: 



a: 
e: 
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Book 2 Unit 5 



Act i v i t y Out 1 i ne 

1* Explain the ides of randoM numbers and their 

implementation in PILOT* Emphasize the following 
points J 

a* Fishbowl analogy (P« 21 of Student PILOT 

Reference Guide)* 
b* Range of numbers generated (-32768 to 

+32767) ♦ 

c* Assignment of random numbers to a numeric 
variable using a Ct*RANDOM~? command* 

2* RUN program RNDNUM * press the BREAK key to stop it* 

3* Explain that usually it is more useful to generate 
random numbers within a smaller defined range* 
especially when simulating chance events (e*g* 
flipping coins or rolling dice)* Have students 
suggest and discuss the appropriate range of random 
numbers for each of the following* 

a* Flipping a coin (0-1 or 1-2)* 
b* Rolling a six-sided die (1-6)* 
c* Rolling a 12-sided die (1-12)* 
d* Picking a card from a standard deck — no 

Jokers ( 1-52) ♦ 
e* Throwing darts — 20 pie-shaped wedges (1-20)* 
f* Generating a "hit percentage 1 ' in a Fantasy 
Games like Dungeons & Dragons 
(0-99 or 1-100) * 
g* Generating a tone in PILOT (0-31)* 
h* Generating a random angle for the turtle to 

turn (0-359 or 1-360)* 
i* Generating a random distance for the turtle 

to move (0-whatever limit you want)* 
J ♦ Generating a random X-coor dinate 

(horizontal) on the PILOT text screen 
(0 to 39) or graphics screen (-79 to 79)* 
k* Generating a random Y-coor dinate (vertical) 
on the PILOT text screen (0 to 23) or 
graphics screen (-31 to ^7)* 

^* Introduce the modulo operator in PILOT in terms of 
its use for generating random numbers between 0 and 
a given upper limit ( C ♦ -frRANDOM-TM imi t ) * Have 
campers modify the RNDNUM program so that it 
generates numbers for some of the ranges suggested 
in points a-i above ♦ (Omit the partially negative 
ranges J and k for now*) 

Note the general form for generating random numbers 
greater than or equal to zero and less than some 
upper limit, B ♦ C t #RANDQM=?\#B * 
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5* Show how to randonly select a word fro« severs! 

possibilities* Then have the canpers include somb 
randomness in one of their previous programs* 
Possibilities for this include randon selection of 
words* phrases* sentences* or paragraphs in a wadlib 
or branching story* random selection of a riddle 
froM a list of several riddles* and rantion range and 
target selection for a nunber guessing gaMe* 
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Book 2 Unit 5 



Challenges 

1* After adding a random target to a number guessing 

Q3Me ask the player if he would like to play again ♦ 
Keep and display an accumulated score and an 
average number of guesses required* Make the range 
depend on how well the player does* 

2 ♦ Make success in NUMPATRN depend on hitting two 
randoMly chosen targets in a row* This is an 
extension of challenge number 5 in Unit 4« Here 
however the targets are chosen at randoM and if the 
player doesn't get the second target right away a 
third target can be chosen and play can continue 
until two targets are achieved in a row* After 
winning a new rule could be chosen at random for 
another round of the* gawe* 

3* Show the caMpers RNDSTORY and have then Make up 
randoM sentence builders of their own* The 
vocabulary in RNDSTORY can be changed and expanded ♦ 
but the campers will notice that all the sentences 
are of the saMe forM* This should lead the* to 
explore other sentence structures and styles of 
writing* The content of the sentences will still 
be Meaningless* but the rythuM of it May begin to 
flow better* To try to approach soMe seMbelance of 
Meaning it May be easier to start with a Madlib 
story and Make Most of the text randoM* keeping the 
sentence structure intact and reusing words that 
are repeated in the original story* What is 
created this way won't be literature* but May draw 
the caMper's attention to Many interesting aspects 
of writing structure and style* 

RandoM attempts at poetry can be approached by 
choosing randoMly froM aMong words or phrases that 
rhyMe or have the saMe nuMber of syallables and the 
saMe eMphasis ♦ 

^* RandoM Tones* 

Have caMpers write a prograM that generates an 
unending series of randoM tones using the C* f SOJ* 
PA*, and Ji coMMands* Each tone should be played 
for a constant duration (e*g* 1/2 second ~ 30/60 
second » PA* 30)* 

Have campers Modify their programs to generate one 
tone for randoM durations (it will sound soMething 
like Morse code)* Then have them coMbine randoM 
tones and durations (ear plugs anyone?)* 
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Book 2 Unit 5 



Challenges 

Randofi sounds can be More pleasant to listen to if 
the range of notes is restricted in various ways* 
The RNDTUNES prograM allows campers to listen to 
notes chosen at random frow a list of notes they 
enter ♦ The Musical effect depends on the harmonic 
relationships between the notes in the list* 
CoMpare the differences in Mood that the following 
lists evoket 

13 f 17 * 20 * 25 

13* 17* 18* 20* 23* 25 

13* 15* IB* 20* 22* 25 

13* 1^* 21* 22* 23* 2^1 

13* 14* 15* 16, 17* 18* 19* 20 
While the prograMMing in the RNDTUNES prograM is 
fairly coMplicated (involving lists and arrays*) 
caMpers can include randoM Music of this sort in 
their prograMS by selecting notes in the saMe way 
randoM words are selected in RNDSTORY* An example 
of this is given in Tip nuMber *\ below* The 
RNDTUNEES prograM can help theM decide what set of 
notes to select from* 

5* RandoM Turtle Walk* (For caMpers faMilar with 
turtle graphics*) 

Have caMpers LOAD and examine RNDWALK* Before they 
RUN it* have theM predict what it will do* 
Propose the idea that you Might want to liMit the 
turning angle to the narrow range of 45-60 degrees 
inclusive instead of 0-359 degrees as the prograM 
now stands* Encourage campers to determine how to 
generate randoM numbers in the range ^5-60 and help 
theM to generalize to the formula 
Ct *RAND0M=?\(#B-*A+1 )+#A for generating randoM 
nuMbers in the range A through El! inclusive* 
Have caMpers modify the RNDWALK program so that 
both the length of the turtle's step and the 
turning angle are chosen at random within specified 
ranges* Modify the program to use DRAW (in place 
of GO) causing the turtle to trace out a complete 
path on the? screen* 



» 
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Chal lenges 

6* Games of Chance* 

Knowing how to generate random numbers opens up the 
possibility of writing a variety of programs to 
play games of chance* The simplest games involve 
flipping a coin and printing whether it is heads or 
tails* Before printing the results the player can 
be* asked to place a bet on what the results will 
be* The program can keep track of the bets and 
appropriate payoffs* The results can be graphed 
like a random walk* More interesting games can be 
created by soliciting bets on whether 10 heads will 
come up before 10 tails and allowing new bets after 
each toss* This can easily be changed into a race 
betwe*en two horses* More horses can be added by 
increasing the range of the random number choice* 
Horses can be displayed as dots on the graphics 
screen* Handicapping can be achieved by moving 
each horse forward an amount corresponding to its 
handicap each time its number comes up at random* 
This brings up more aspects of probability in 
determining appropriate odds* Other aspects of 
probability are encountered in rolling dice* 
Campers can explore the effects of rolling dice of 
different sizes and see what effect it has if they 
multiply rather than add the results* 

7* Advanced campers who understand the lists and 

arrays used in the RNDTUNES program and LETTERS 
program from Unit 2 might be interested in trying 
to put a list of items in a random order* This 
ap p 1 i cat i on i s usef u I for such f unc t ions as 
shuffling a deck of cards* If a camper starts with 
the LETTERS program and modifies it to put the 
letters of a word in random order it can be used to 
create an anagram game* 

An interesting type of music can be created by 
randomizing the 12 notes in the chromatic scale 
(notes 13 through 24 in PILOT) and then playing 
them* After each note has been played once the 
P r a c e s s i s r e p e a t e d w i t h a n e w r a n d o m o r d e r i n g ♦ 
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Teaching Tips 

1 ♦ Pages 21 and 22 of the Student PILOT Reference 
Guide May help you explain the idea of random 
nuMbers and the use of the Modulo operator <\) to 
liMit the range of numbers generated* 

2* If students ask how the coMputer generates randoM 
numbers* Just say that it's a coMplicated process* 
but that there is a register in the computer's 
MeMory whose value is constantly changing* When 
you ask for a randon nunber ♦ the computer takes 
whatever value happens to be in that register* 

3* Explain the Modulo operator functionally — how to 
use it to limit the range rather than explaining 
the theory behind it (Modulo is the reMainder after 
division by a given number ♦ ♦ ♦ ) 

^* Campers should be able to figure out for themselves 
how to select words at random* Before explaining 
it to them give them a chance to explain it to you* 
Say that you want to randoMly choose between DOG* 
CAT* and MOUSE! and ask for suggestions as to how to 
do it* With a little encouragement they should see 
that the range is 3 since there are 3 words* So we 
start by picking a random number mod 3 - 
C*+RANDQM=?\3* Then we let each word correspond to 
one of the numbers with a statement like 
C<*RANDOM*0) J*WORD*DOG or T ( : i : RANDOM==:L ) ♦ CAT ♦ 
Phrases* sentences* or whole? paragraphs can depend 
on such a random choice* 

Random Music can be generated in a siMilar way ♦ 

CJ#CQUNTER«1 

xPLAYNOTE 

CT#RND«?Vl 

SO(*RND=0) J 13 
SQ(*RND=1> 117 
S0(#RND«2> S20 
S0<*RND«3) J 25 
PASS 

Ct#COUNJER«#CQUNTER+l 
J < #COUNTER< 17): xPLAYNOTE 
Both of these examples involve the use of a table 
of words or notes that correspond to a list of 
numbers* Tables are useful structures with a wide 
r ange of ap p 1 i cat i ons i n comp uter sc ience * 
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Teachint Tips 

5* Be sure students have had tine to become 

comfortable generating random numbers between 0 and 
so«e upper limit before generalizing to numbers 
between any lower limit and any upper limit* 

6* In explaining how to generate a random number 

between any lower and upper limits * note that first 
you Must determine the width of the range and then 
you offset the range from 0 by adding (or 
subtracting) the number where the range begins* 
That is* in generating numbers from 5 through 10* 
the width of the range is 6 and the range starts at 
5* So the PILOT command would be CMR=?\< 10-5+1 ) +5 
or more simply* C J*R«?\<6)+5« 



Cross Reference 

Student F :, IL0T Reference Guide* Pp ♦ 21-23 ♦ Also* the 
following examples in the Student PILOT all make 
use of random numbers* 



p. 


19, 


Fig. 


3-20 


p ♦ 


50 , 


Figs 


♦ 3-21 and 3-22 


p. 


63, 


Fig ♦ 


1-10 


p. 


65, 


Fig. 


1-12 


p. 


73, 


mm • 

F-ig* 


1-20 


p. 


79, 


Fig. 


1-25 


p. 


88, 


Fig. 


5-5 


p. 


90, 


Fig. 
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The PILOT Primer* Chapter 7* P* 109* Pp ♦ 122-123 
ATARI Games and Recreations by Kohl* Kahn & Lindsay 
ATARI Sound and Graphics by Moore* Lower & Albrecht* 
Chapter 8 
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Estimated Timet 



An it* at i on 
3 sessions 



Key Concepts 

Animation 



Pr equisites 

Ti post u: j : ct 

At Mt Rt Et 

G e n e r a 1 c o n d i t i o r i a 1 s t a t e m e n t s 



New Statements 

Tt * * ♦ ♦ PGSt#OVER,#DOWN PAt 

Turtle graphics commands 



Mater ials 

PILOT Book 2 Utility diskt ALPHA, LUNCHEON, BIRD, 

jingle:, SPHINX, ARROW, ROCKET, JUMPER, FLY, DRIVE, 
BALLOON, INCIDENT, FLYER 

The An i mat i on Book , K i t Lay hour ne , Cr own Pub 1 i sher s , 
New York 1979 

Computer Animation Primer, David Fox and Mitchell Waite 
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Activity Outline 

1 ♦ Use the ALPHA program to introduce campers to the 
placement of pictures in arbitrary places on the 
screen and the use of arrow keys in Type 
statements ♦ 

2* Have the campers RUN LUNCHEON and BIRD to see 
some uses of static animation* Then have them 
create some similar pictures of their own » 

3* Have the campers modify their programs or LUNCHEZON 
or BIRD to allow the user to position the picture* 
It should start by asking where the picture should 
be printed and then print it there* 

^* Once this is working have them modify the program 
further to ask the user if she would like to 
reposition the picture and then reposition it 
accordingly* This option should continue until she 
is happy with where the picture is* Then the 
static animation can take place* 

5* Now we are ready to try animation with motion* Use 
the ARROW and ROCKET programs to demonstrate how 
this can be done* In particular discuss the *FLY 
module in lines 230 to 270 of the ARROW program* 
Have campers each create a small character graphic 
image and then move it across or up or down the 
screen in the same fashion* 

6* Discuss the incorporation of animation in larger 

programs and the design of projects* Emphasize the 
division of projects into smaller pieces that can 
be handled with distinct program Modules* 

7* Review turtle graphics* Point out how the turtle 
can be used as an animated character by running 
JUMPER* Demonstrate the robot turtle* 

8 * U s e t h e p r a g r a m s D R I V E a n d F L Y t o d e m a n s t r a t e 
simple animation in turtle graphics* Have the 
campers work on projects or create more animated 
pictures of their own in turtle or character 
grap hies ♦ 
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Chal 

dd soMe animation to a previous program* This 
ight include animation in a branching or Madiib 
tory like INCIDEINT* a riddle like RABESIT plus the 
nidation in LUNCHEON* or a number game like 
ALLOON ♦ F r or example ♦ the NUMPATRN game could be 
nhanced by displaying a Machine on the screen and 
sving the ftIN number appear to 90 into the Machine 
nd be transformed into the #OUT number while gears 
Pint pistons pump* bells ring, whistles blow* and 
ights blink* 

n programs where the user can control placement of 

picture by entering the coordinates where it 
hould drawn* the program should check what the 
ser types in to Make sure the picture isn't placed 
ff the screen* Where it is safe to draw the 
icture will depend on how big it is* The prograM 
hould check the input and print an appropriate 
rror Message if it is out of range* 

ambine static shape change an i Mat ion with Motion* 
lis can be done by Moving the figure each tiMe a 
?rsion of the figure is drawn* It is generally 
isier to Move it once each time the whole sequence 
r figures is drawn* For example* in the BIRD 
% ogram the bird could be Moved by Making the 
3 1 1 o w i ng changes * 

80 Ct*DOWN«22 

100 PQSi5*#DQMN 

102 Ci#D0WN==#D0WN~l 

120 J ( *DOWN>0 ) t * AGAIN 
ice this has been done it Might be fun to Make a 
mple cartoon where the bird would fly across the 
Teen and then put down feet* land somewhere* and 
)'!d up its wings* 

icther idea for a combination of motion and change 
v shape would be to add changing flames and maybe 
cloud of smoke to the ROCKET program* The 
inning child in INCIDENT is another example of 
imbining motion with a change in shape ♦ 

limate a figure in two dimensions* This requires 
dating both the variable for how far over and the 
is for how far down the figure is each time the 
gures are redrawn* If a figure moves more than 
e square at a time in any direction* the figure 
1 1 n e e d t o b e e r a s e d a n d t h e n r e p r i n t e d ♦ 
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Challenges 

Interesting paths of Motion can be* created by 
Moving a figure one square at a tine in one 
direction and Moving it according to the nuMbers in 
a nuMber sequence in the other direction* The 
effect of this kind of Motion May be easier to see 
if it is done in turtle graphics where there is 
More rooM* FLYER shows an exaMple of this kind of 
an i Mat ion* In effect this kind of Motion will be 
the graph of the nuMber sequence* 

5* Try aniMating two or More iMages at once* This 

involves cremating one loop in which each iMage is 
updated ♦ 

6* CaMpers faMiliar with turtle graphics May want to 

persue an i Mat ion there* One challenge is to Modify 
the F r LY prograM to Make the bird Move as it flies* 
FLYEER shows one way to do this* 

Another challenge is to try using PEIN ERASE and 
drawing over the figure instead of using CLEAR 
which clears the whole screen* This Makes possible 
an i Mat ion with other figures on the screen* 
Interesting designs can also be created by leaving 
out the CLEAR or PEN ERASE stateMents and leaving 
figures on the screen as the turtle Moves on* 

7* Write a prograM for the robot turtle to feel its 

way through a Maze* Write a prograM for the robot 
turtle to take a randoM walk until it runs into a 
box and then push the box randoMly around the 
floor* Try to Modify this prograM to push the box 
in one general direction* 



Teaching Tips 

1* Have the caMpers explore and then Modify the ALPHA 
prograM as follows* RUN the prograM* Then LIST 
20 0 to 290 and change the POSition stateMents to 
put the letters in different places* They Might 
try to spell another word like hall or lap or they 
Might Just put the letters anywhere* Once it is 
clear how siMple it is to Make these changes by 
Just changing the POSition statement have then 
design a screen using the letters of their naMes or 
so fie other word that requires More letters than a* 
h ♦ 1 ♦ a n d p * T o d o t his t h e y s h o u 1 d LIST 500 t o 
66 0 to see how a couple of the letters were 
c r e a t e d * 
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Teaching Tips 

It May be necessary here to explain the function of 
the arrow keys in the Type stateMent* They are 
entered by pressing ESC and then the desired arrow 
key with CTRL ♦ PILOT then wakes then part of that 
Type stateMent* When it follows that statement it 
Moves the cursor accordingly rather than printing 
the arrow* Using this you can Move the cursor to 
any place on the screen relative to where the 
stateMent started typing* In the case of these 
Pictures we Move the cursor to the beginning of the 
next line of the picture so that we are ready for 
the next type stateMent* A slightly different 
approach is used to print the sMoke in the INCIDENT 
progran* 

It is possible to have your pr ograM print arrows 
when it runs* This is achieved by embedding an ESC 
character before each arrow in the Type stateMent* 
To enter this you Must press ESC twice to put ESC 
in the stateMent and then press ESC and then CTRL 
and your arrow to put your arrow in the stateMent* 
This is deMonstrated in the anterooM picture in the 
SPHINX prograM* 

Use of arrow keys to create pictures that can be 
placed anywhere on the screen is helpful even if 
an i Mat ion is not anticipated since it Makes it so 
easy to adjust the position of the picture on the 
screen when trying to Make the output pleasant to 
look at* 

2* The placeMent of pictures on the screen can be 

covered a lot earlier if the opportunity arises* 
Challenge nuMber 5 in Unit 2 introduces this 
concept and as pointed out above it can be useful 
when laying out a screen to have pictures that can 
be placed anywhere* 
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Teaching Tips 

3* Other exaMples of static animation can be found in 
JINGLE , SPHINX, and the clicking heels in INCIDENT ♦ 
If csMpers have trouble cowing up with ideas of 
their own for static animation, here are a few 
suggestions that Might interest then* 

Faces with Mouths that open for words to 
cone out 

Noses that twitch 

Eyes that blink 

Ears that wiggle 

AniMals with swishing tails 

Wheels that spin 

Flames for a fire 

A kicking Mule 

A balloon that expands 
They might also like to consider pictures of things 
that they might like to move later like animals, 
boats, trains, spaceships, or a faucet or ice cream 
cone that drips* In any case the pictures they 
create should be made in modules with CTRL arrows 
in the Type statements so that they can be used 
repeatedly in different places on the screen* 

^* In activity 3 the question about where the picture 
should appear on the screen should be split into 
two parts, one asking how far over the picture 
should be and the other asking how high* The 
variables used to store the answers to these 
questions can then be used in a POSition statement 
to place the picture* If the entered position is 
near or off the edge the picture will not come out 
right* As suggested in Challenge 2 the program can 
be modified to watch out for this* However, for 
present purposes it is only necessary that the 
picture can be placed in several places toward the 
Middle or left of the screen* For campers who are 
having probleMS, rather than confusing the issue 
with nuMbers that Might be too near the edge have 
theM restrict their input to nuMbers froM 2 to 15* 
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Teaching Tips 

5* The siMplest way to Move 3 picture to 3 different 

place on the screen is to erase it and then draw it 
again in the new position* To erase a picture a 
Module should be created with stateMents like this* 
T* ±«-«-*-«A* The length of each stateMent should 
correspond to the width of the picture to he erased 
and the nunber of such stateMents should correspond 
to the height of the picture* Then the picture can 
be erased by positioning the cursor in the saMe 
place it was positioned to draw the picture and 
using the erase Module* 

6* Once a prograM is written that allows the user to 
Move a picture around the screen it is a siMple 
Matter to have the prograM control where the 
picture should Move to* Having the prograM control 
the Motion* however* can be harder to understand 
and debug* For this reason it is iMportant for the 
caMpers to write and understand prograMS where the 
user directs where the picture shall be Moved to 
before atteMpting prograM controlled Motion* 

7* If caMpers have trouble understanding the aniMation 
control loop in ARROW or ROCKET* have theM Move the 
rocket without using a loop* This can be done with 
a sequence of stateMents of the forM 

PQSt 23*14 

U ♦ BROCKET 

P0S*25*13 

UtttROCKET 

P0S*25*12 

♦ ♦ ♦ 

and in fact corresponds to the positions deterMined 
by the loop* 

8* Both the ARROW and ROCKET prograMS Move their 

iMages without using a separate Module to erase the 
iMage before redrawing it* Instead they print 
right on top of the previous iMage and print a few 
extra spaces (on the left of the arrow and below 
the rocket) to erase the part of the previous iMage 
that would otherwise still be showing* This 
technique can be used whenever the picture is only 
being Moved one space at a tine* It Makes the 
aniMation Move More quickly and SMoothly since less 
characters need to be printed each tine the picture 
is Moved* 
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T e a c h i n g T i p s 



9* Larger pictures are harder to animate because the 

time it takes for all the characters in the picture 
to be printed is long enough for you to see the 
incomplete picture on the screen* They also can 
not be placed as near the edge of the screen* For 
these reasons encourage the campers to work with 
smaller figures to start with* As they gain 
experience they can develop their own guidelines as 
to how big a picture they can animate successfully* 



10* Pictures can not be placed near the right edge of 

the screen because F'lLOT will treat the CTRL arrows 
in the Type statements as words* If a word is too 
long to fit on a line PILOT moves the cursor to the 
beginning of the next line* This problem can be 
reduced by placing a space and an extra back arrow 
after each arrow* This fools PILOT into 
interpreting the arrows as several smaller words so 
that it stays on the same line* However* it makes 
the listing of the picture harder to understand* 



11* With this type of character animation it is hard to 
display images moving on and off the screen* To 
move pictures gradually off the screen separate 
pictures must be made for each partial image* It 
is much easier to move images on and off the screen 
u s i n g t u r 1 1 e g r a p h i c s ♦ 



C r o s s R e f e r e n c e 



PILOT PRIMER pages 182 to 184 
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Estimated Time X 



I n t e r a c t i v e P r o g rsMMi n g 
2 sessions 



Key Concepts 

Control of animation froM the keyboard or joystick 
Joystick control of the turtle 
Timing of input 

Passing inf or nation from one Module to another 
Large projects 



Prerequisites 

t: pos: u: j: c: 

a: m? e: r: 

General conditional statements 
Turtle graphics commands 



N e w S t a t e m e n t s 

jm: ak: %jo %ts 

%X %Y %ST 



Mater ials 

PILOT Book 2 Utility disk! KEYSHIP , STIKSHIP f KEYDRAW 
SPHINX, 3APHIRE, CATCHIT 
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Activity Outline 

By the time this unit is started the campers should be 
working on projects* Activities in this unit are 
intended to introduce campers to aspects of interaction 
that can be useful in real tine interactive pr ogr amMing ♦ 
Concepts of program organization and the management of 
information within programs are also covered* Before 
starting these activities it may be helpful to review 
program organization as discussed for the SPHINX program 
in tip 4 of Unit 3* 

1« Use KEYSHIP and STIKSHIP to introduce the use of 

the keyboard and the Joystick to control animation* 
Have campers modify one of their programs from Unit 
A to allow the user to position a picture in this 
way* 

2* Use KEYDRAW to show how this kind of interaction is 
easily adaptible to other types of programs* Have 
campers modify KEYDRAW or STIKSHIP to create a 
"STIKDRAW" program* 

3* Use the SAPHIRE program to show how the Joystick 

can be used to control the turtle* Pay particular 
attention to lines 300 to 390 and 90 to 200* 
Campers may be interested in modifying these parts 
of th.e program to control the turtle with the arrow 
keys instead of the Joystick or to make the turtle 
continue to move once it is set in motion in some 
direction ♦ 

4* Use the following routine to show how a timelimit 
can be added to the input in the SPHINX program* 

2000 xTIMEDINPUT 
2010 C:#TIMELEFT=:*TIMELIMIT 
2020 C:*ANSWER= 
210 0 xiNPUT 
2110 C ♦ $LETTER= 

2120 AK ( %K ) **LETTER 

2130 T X $LETTER\ 

21^0 C**TIMELEFT-*TIi1ELEFT-l 
2150 C:$ANSWER=*ANSWER$LETTER 
2160 J(*TIMELEFT>0 ) t*INPUT 

2170 a:^*answer 

2180 Et 
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Activity Outline 

To use this with the sphinx prograM* we only need 
to add these two lines* 

788 Ct*TIMELIMIT=8Q 

790 UtxTIMEDINPUT 

Have the campers incorporate the safie routine in 
their own programs where they want to liMit the 
input tine* 

5* Have the calipers run CATCHIT as an exawple of other 
applications where input is Monitered for a limited 
period of tine* SoMe canpers May want to include 
similar applications in their prograMS* 

6* In CATCHIT point out the use of #T00S00N and *G0TIT 
as binary state variables with a value of either 
♦TRUE or #FALSE as a way to keep track of things 
that happen in one routine and affect events in 
another routine* Have the caMpers find similar 
variables in SAPHIRE* Point out how careful naning 
of these variables Makes the prograw listing easier 
to read and understand* 
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Challenges 

1* Combine aspects of the STIKSHIP and BIRD prograws 

to create a prograM where the bird flies around the 
screen under control of the Joystick* Make the 
bird put down its feet and fold up its wings when 
the joystick trigger (%T8) is pressed* 

2* Modify the KEYSHIP t STIKSHIP ♦ or KEYDRAW program to 
keep it froM crashing when it goes off the screen* 

3* Modify control of the turtle in SAPHIRE or your own 
prograM so that the turtle Moves faster when you 
push the joystick towards the top* slower when you 
pull it toward the bottoM* and turns a few degrees 
to the left or right when the joystick is pushed to 
the left or the right* Alternatively Make the up 
arrow Move the turtle forward* the down arrow Move 
it back* the left arrow turn it left 10 degrees* 
and the right arrow turn it right 10 degrees* 

^* The *TIME:LIMIT in the xTIMEIDINPUT routine counts 
how Many tiMes the prograM should go through the 
*INPUT loop* The routine could be improved by 
Making the units in the tiMe lift it More Meaningful 
to a huMan being like seconds* To do this line 
2010 whould have to be changed to convert the 
nuMber of seconds to the appropriate nuMbosr of 
passes through the ttlNPUT loop* Try it* 
The input in this routine does not end if you press 
return since you can't Make the Match stateMent 
catch return* However* if this is iMportant in 
soMe application the user could be proMpted to 
terminated the input with another key such as the 
s p a c e b a r o r a C T R L c h a r a c t e r ♦ 0 n c e t h is is d o n e 
t h e a m o u n t o f t :L m e a c t u a 1 1 y t a k e n t o a n s w e r t h e 
q »..« e s t i o n i s e a s y t o c a 1 c ulate ♦ Try w r i t i n g a 
trivia quiz show or Math drill prograM where the 
user will get a better score if she answers the 
questions faster ♦ 

5* Using the AK < %K ) ♦ stateMent for input write an 

encoding/decoding prograM to take letters as they 
a r e t y p e d in a n d p r i n t t h e m o u t i n c o d e ♦ Mo d i f y 
this prograM to Make a Morse code generater that 
w i 1 1 w a t c h t h e k e y b o a r d a n d b e e p a p p r o p r i a t e M o r s e 
c o d e f o r a n y 1 e 1 1 e r s t h a t a r e p r e s s e d ♦ 
T u r n t h e k e y b o a r d i n t o a m u s i c a 1 k e y b o a rd# p 1 a y i n g 
d i f f e r e n t n o t e s f o r e a e h k e y t y p e d * S t o r e t h e 
n o t e s i n a s t r i ri g a n d u s e t h e r o u t i n e s i n R N D T U N E S 
to take the string apart and play back the notes 
later * 
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Challenges 

6* APPEND several riddles or jokes together and tell 
them at random* Use a true/false variable with 
each riddle to keep track of whether or not it has 
been told or not so you don't tell the sarce riddle 
twice ♦ 



Teaching Tips 

1* In activity 1 the user of the program needs some 

way to indicate that he is done Moving the picture 
around* Rather than constantly asking whether he 
is done the program should prompt hiM to press the 
Joystick trigger (%T8) or REITURN when he is done* 
Then each tins the program checks the position of 
the joystick it should also check the trigger* As 
the caMpers finish this activity discuss the 
differences between this Method of placing a 
picture on the screen and the one used in Unit 6 
where coordinates were entered* 

You will notice in using KEEYSHIP and STIKSHIP that 
if you Move the ship too near the bo t ton of the 
screen part of it will wrap around to the top of 
the screen* This is because of the way the arrow 
keys are interpreted* The sane probleM occurs when 
the ship is Moved close to the right edge* Here 
however the ship is interpreted as a word and Moved 
around to column 2 on the next line while the 
spaces that are intended to erase it do not form a 
word so they don't wrap around until they get to 
the end of the line* As a result the ship is not 
completely erased when it wraps around like this* 
The siMplest way to avoid this is not to draw the 
ship near the right edge in the first place* 

The *TIMEDINPUT routine can be a little confusing* 
There are two things occur ing in it* timing and 
s t r i n g i n p u t ♦ T h e t i m i n g i s h a n d 1 e d b y r e d u c i n g 
t h e T I M E L E F r T e v e r y t i m e t h r o u g h t h e >k I N P U T 1 o o p a n d 
continuing to go through the loop as long the 
TT.MELEFT is positive* The rest of the routine is 
used to assemble the input string* We start out in 
line 20 2 0 with nothing typed in* In the *INPUT 
loop %K tells us whether a letter has been pressed* 



n 

X- * 



3, 
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Teaching Tips 

If a letter has been pressed line 2120 accepts that 
letter* line 212A prints the letter so the user 
will see what she has typed ♦ and line 214 Q adds the 
letter to what has been typed in so f ar ♦ Line 2110 
is to Make sure we don't continue to type the sane 
letter over and over if a new letter hasn't been 
pressed* Finally, when tine is up we store the 
letters that have been typed in the "accept buffer" 
where the rest of the prograM can eoMpare it to 
other strings with a Match statement ♦ 

^* The tiMing in CATCHIT is similar but a little 
simpler* INstead of trying to keep track of a 
whole answer* we only need to accept any letters 
that are typed and Match then with S* If this 
happens in the? kGETREIADY loop the key was pressed 
too soon since the* ball hasn't fallen yet* If it 
happens in the *FALL loop then the user got it 
before the ball went off the =sereen* Each loop 
will end if S is pressed* The *GETREADY loop will 
also end if the #WAITinq time gets down to 0* The 
*FALL loop will end if the ball falls off the 
s cree n ♦ 

5* The programs in this unit use several inter rial 
PILOT variables* Here is a suMMary of the ones 
that are used* 

%J0 reads the* position of joystick 1 
%T8 reads the position of the joystick 1 

tr igger button 
%X shows the X-coor dinate of the turtle 
%Y shows the Y-coor dinate of the turtle 
%ST shows the status of the turtle? 
%ST : ~2 Means the turtle is at or 
beyond the edge of the screen? 
%ST~1 Means the turtle is at a wall? 
%ST~0 Means neither of these 
c o n d i t i o n s i s t r u e 
A More coMplete description of these and other 
i n t e r n a 1 v a r i able s e a n b e f o u n d i n t h e P I. L 0 T P R I M E R 
a n d t h e P I L 0 T II d o c u m e n t a t i o n ♦ 



C r a s s R e f e r e n c e 

PILOT PRIMER pages 13? and 182 to 189 
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ALPHA 

200 POS: 5, 5 
210 U:*A 
220 POS: U»S 
230 Us *L 
240 POS: 17,5 
250 Us *P 
260 POS: 23, 5 
270 Us*H 
280 POSs 29, 5 
290 U:*A 
300 PA s 200 
310 POSs 5, 15 

320 Ts REWRITE THE FIRST PART OF THIS PROGRAM TO PUT LETTERS IN DIFFERENT PLACE 
ON THE SCREEN. 
350 Es 

400 Rs 

410 R: 

420 Rs THE ALPHABET 

430 Rs 

500 *A 

510 Ts AA \ 
520 TsA A\ 
530 TsAAAAX 
540 TsA A\ 
550 TsA A 
560 Es 
600 *L 
610 TsL\ 
620 TsL\ 
630 TsL\ 
640 TsL\ 
650 TsLLLL 
660 Es 
700 #P 

710 Ts PPP \ 
720 TsP P\ 
730 T l PPP \ 
740 TsP\ 
750 T s P 
760 Es 
800 *H 

810 Ts H H\ 
S20 Ts H H\ 
830 Ts HHHH\ 
840 Ts H H\ 
850 T s H H 
360 Es 
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ARROW 



3 00 POS : 1 , 1 6 

110 T:I SHOT AN ARROW INTO THE AIR. 
120 POS: 4, 18 

130 T:IT FELL TO EARTH I KNOW NOT WHERE. 

40 PA: 200 
200 *SHOOTARROW 



210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



C: #0VER=1 
SO: 29 
*FLY 

P0S:#0VER,8 

T: > 

C:#0VER=#0VER+1 
J <#0VER<33) : *FLY 
SO: 1 
PA: 2 
SO: O 



E: 



# 



- 
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BALLOON 

20 U:*WALL 
100 C:#TARGET=?\19+1 
110 PQS:37.,#TARGET 
120 T:0 

125 *TAKEASHOT 
130 P0S:5,22 

140 T: WHERE* S THE BALLOON?\ 

150 A:#GUESS 

160 C:#DOWN=#GUESS 

170 Us * SHOOT ARROW 

180 J <#GUESS=#TARGET> : *GOTIT 

190 SO: 1 , C THUD 3 

200 PA: 2 \ 

210 SO: O 

212 U: *ERASETEXT 
220 P0S:7,21 
230 T: TRY AGAIN 
240 J:*TAKEASHQT 
300 *GQTIT 
310 SO: 25 
320 PA: 3 
330 S0:0 
340 P0S:5„10 

350 T: YOU GOT IT! ! \ 
360 P0S:7,21 
370 Ta \ 
380 P0S:1 5 19 
390 E: 
400 *ERASETEXT 
410 P0S:1,21 
420 T: 
\ 

430 E: 

800 #WALL 

810 PQS:38.,0 

820 TtO 

830 C:#D0WN=1 

840 *DRAW 

842 P0S:38,#D0WN 

844 Ts 

846 C : #DOWN=#DOWN+ 1 

848 J (#D0WM<20) : *DRAW 

850 POS: 37,20 

860 T:20 

870 E: 

900 *SHOOTARROW 

910 C:#0VER=1 

920 *FLY 

930 POS : #0 VER ? #DOWN 

940 T: >> > 

950 C : #0 VER=#OVER+ 1 

960 J (#0VER<32) : *FLY 

970 E: 
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BASKET 

20 T: PLEASE TYPE IN... 

30 T: THE NAME OF A SCHOOL: \ 

40 A:*SCHOOL 
gm± 50 T : AN ANIMAL: \ 

60 A s $ ANIMAL 

70 T: A CITY: \ 

SO A:$CITY 

90 T: A BIRD: \ 
100 A: $BIRD 
110 T: A NUMBER: \ 
120 A: ^NUMBER 
130 T: A CELEBRITY: \ 
140 A: $CELEB 
150 T: A THING: \ 
160 A:$NOUN 

170 T: A MALE CELEBRITY: \ 
ISO A: $MALE 

190 T: SOMETHING YOU DID YESTERDAY: \ 
200 A:*PAST 

210 T.-NAME OF A BOY IN THE ROOM: \ 
220 A:*BOY 

230 T: ANOTHER THING: \ 
240 A:*N0UN2 
250 T: A CONTAINER: \ 
260 A:*BOX 

270 T: SOMETHING THERE ARE LOTS OF: \ 

280 A:$PNOUN 

290 T: ANOTHER NUMBER: \ 

300 A:*NUMBER2 

•310 T: A DESCRIPTIVE WORD: \ 
320 A:*ADJ 
330 Rs 
340 R: 

350 TO J^IU : 1 1 

360 T: Ladies and gentlemen, here we are \ 
370 T:at the championship basketball game \ 
3S0 T: between the ^SCHOOL ^ANIMAL and the \ 
390 T:$CITY *BIRD. The ^NUMBER— f oot \ 
400T:center has just tipped the ball to \ 
410 T: $CELEB;, who dribbles down the *NOUN \ 
420 T:and passes to $MALE. Oh, too bad! \ 
430 T: He just *PAST. This means $B0Y gets \ 
440 T:a -free throw. He is all set, and \ 
450 T: there it goes. He dropped the \ 
460 T:*N0UN2 right into the $B0X. This \ 
470 T: means two $PN0UN and makes the \ 
480 T: score $NUMBER2 to nothing. This is \ 
490 T: certainly a $ADJ game. 
500 E: 
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T: 


1220 


T: 
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E: 
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\ 



\ 
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, . ,.: CATCHIT 

20 C:#TRUE=1 

30 C:#FALSE=0 

40 *START 

50 T:> 

60 C:#TIME=5 

70 C: #D0WN=5 

80 C : #G0T I T=#F ALSE 

90 C : #T00S00N=#FALSE 

100 T: WHEN YOU SEE THE BALL DROP 

110 T: 

120 T: PRESS S ! 

130 ? C: #WA I T*?\ 100+50 

140 : P0S:20,#D0WN 

150 Ts 

160 U: *GETREADY 

170 J (#T00S00N) : *TOOSOON 

200 U: #FALL 

204 T : 

210 T(#GOTIT) 5 YOU GOT IT IN #TIME HUNDREDTHS OF A SECOND. 

220 T (#GOTIT=#FALSE) : YOU MISSED IT. 

225 KAGAIN 

230 T: 

240 T: PRESS RETURN TO TRY AGAIN. \ 

250 As 

260 J:*START 

400 *TOOSOQN 

410 T:IT DIDN'T MOVE YET. 

420 J:* AGAIN 

500 *GETREADY 

510 AK(XK) 8 

520 M:S 

530 CY : #TQQSOON=#TRUE 

540 E Y : 

550 C : # WA I T=#WA I T- 1 

560 J <#WAIT>0> : *GETREADY 

570 E: 

700 *FALL 

710 P0S:20 ? #D0WN 

720 T: \ 

722 PAs 1 

724 C: #TIME=#TIME+5 

730 AK<"/.K>: 

740 M:S 

750 CY:#GOTIT=#TRUE 

760 EY: 

770 C : #DOWN=#DOWN+ 1 

780 J (#D0WN<23) : *FALL 

790 P0S:20,#D0WN 

800 T : \ 

810 E: 
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DRIVE 



10 TURTLE OFF; PEN YELLOW 

20 GR: CLEAR; GOTO -150, O; TURNTO 90 

22 C:#C0UNTER=20 

30 * MOVER 

40 U: * TRUCK 

50 PA: 5 

52 SO: 2 

54 PA: 5 

56 SO: 3, 1 

58 PA: 5 

60 GR: GO #COUNTER; CLEAR 
70 C : #COUNTER=#COUNTER- 1 
80 J (#COUNTER>0) : *MOVER 
85 U:*TRUCK 
90 E : 

200 * TRUCK 

202 GR: TURN -90 

204 GR: 3 (DRAW 3; TURN 90) 

212 U: *WHEEL 

214 GR: DRAW 4 

216 U: * WHEEL 

218 GR: DRAW 6 

220 U: * WHEEL 

230 GR: DRAW 3; TURN 90 

240 GR: DRAW 7 5 TURN 90 

250 GR: DRAW 10; TURN 90 

260 GR: DRAW 7; TURN -90 

270 E: 

300 * WHEEL 

302 SO : 2 , 3 

310 GR: 4 (DRAW 2; TURN -90) 
312 S0:l,2 
320 E: 
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to 

12 
14 
16 

20 
30 



Cs#T~8 
GR: CLEAR 
TURTLE OFF 
PEN WHITE 
*FLY 



U: *BIRD1 



32 PA:#T 

34 GR: CLEAR 

40 U:*BIRD2 

42 PA: #T 

44 GR s CLEAR 

50 U:*BIRD3 

52 PA:#T 

54 GR 3 CLEAR 

60 Us*BIRD2 

62 PAs#T 

64 GR s CLEAR 

70 Js*FLY 

100 *BIRD2 

110 TURN 45; DRAW I5 TURN 45; DRAW 2; TURN 30; DRAW 2 

120 GO -2; TURN -30; GO -2; TURN -45; GO -1 

130 TURN -90; DRAW 1| TURN -45; DRAW 2; TURN -30; DRAW 2 

140 GO -2; TURN 30; GO -2; TURN 45; GO -1; TURN 45 

150 E: 

200 *BIRD1 

210 TURN 45; DRAW 1; TURN 45; DRAW 1; TURN 30; DRAW 3 

220 GO -3; TURN -30; GO -1; TURN -45; GO -1 

230 TURN -90; DRAW 1; TURN -45; DRAW 1; TURN -30? DRAW 3 

240 GO -3; TURN 30; GO -1; TURN 45; GO -1; TURN 45 

.250 E: 

4^300 *BIRD3 

W310 TURN 45; DRAW 1; TURN 25; DRAW 3 

320 GO -3; TURN -25; GO -1 

330 TURN -90; DRAW 1; TURN -25; DRAW 3 

340 GO -3; TURN 25; GO -1; TURN 45 

350 E: 



w 
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FLYER 



10 C:#T=8 
12 GRs CLEAR 
14 TURTLE OFF 

16 PEN WHITE 

17 C:#A=-5 

18 C:#0VER=~35 

19 Cl#UP— 32 

20 *FLY 

22 C:#A=#A+1 

24 C: #OVER=#GVER+#A 

26 C:#UP=#UP+1 

28 GOTO #OVER,#UP 

30 U:*BIRD1 

32 PA:#T 

34 CLEAR 

36 C:#UP=#UP+1 

38 GOTO #OVER„#UP 

40 U:*BIRD2 

42 PA:#T 

44 CLEAR 

46 C:#UP=#UP+1 

48 GOTO #OVER,#UP 

50 U:*BIRD3 

52 PA:#T 

54 CLEAR 

56 C:#UP=#UP+1 

58 GOTO #aVER„#UP 

60 U:*BIRD2 

62 PA:#T 

64 CLEAR 

70 J:*FLY 

100 *BIRD2 

110 TURN 45 5 DRAW 1; TURN 45; DRAW 2; TURN 30; DRAW 2 

120 GO -2; TURN -30? GO -2; TURN -45; GO -1 

130 TURN -90; DRAW 1; TURN -45; DRAW 2; TURN -30; DRAW 2 

140 GO -2; TURN 30; GO -2; TURN 45; GO -1; TURN 45 

150 E: 

200 *BIRD1 

210 TURN 45; DRAW 1; TURN 45; DRAW 1; TURN 30; DRAW 3 

220 GO -3; TURN -30; GO -1; TURN -45; GO -1 

230 TURN -90; DRAW 1; TURN -45; DRAW 1; TURN -30; DRAW 3 

240 GO -3; TURN 30; GO -1; TURN 45; GO -1; TURN 45 

jl v— j o E s 

300 *BIRD3 

310 TURN 45; DRAW 1; TURN 25; DRAW 3 

320 GO -3; TURN -25; GO -1 

330 TURN -90; DRAW 1; TURN -25; DRAW 3 

340 GO -3; TURN 25; GO -1; TURN 45 

350 Es 
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1 00 
110 
120 
130 
140 
150 
1 52 
154 
160 
170 
172 
180 
190 
200 
210 
220 



NAME? 



PQSi2,3 

T: WHAT'S YOUR LAST 
A: ^FRANKENSTEIN 
P0S:2,6 

T: WHAT'S YOUR FAVORITE ANIMAL? 

A: $ ANIMAL 

C:*PLURAL=S 

C : *AN I MALS=*AN I MALSPLURAL 
POS: 2, 9 

T: WHERE WOULD YOU LIKE TO VISIT? 

POS: 5, 1 1 

A : $TRANSYL VAN I A 

P0S:2,14 

T: TYPE A WORD THAT MEANS CRAZY: 

A:*MAD 

R: 



"FRANK 



\ 



230 R: 
250 T: J 
260 T: 

300 U:*CASTLE 
310 T: 

320 T: Once upon a time there was a $MAD scientist named Doctor *FRANKENS1 

IN. \ 

330 T: He lived in a castle in $TR ANSYLVAN I A . He experimented with electrici 
y and dead ^ANIMALS. 
340 T 



350 T 




360 
370 
380 
400 



T 
A 
T 
T 



PRESS RETURN 



3- 



410 U: * FRANK 
420 T: 

430 T: One day a thunder 

e brought one o-f the dead \ 

440 T: * ANIMALS back to li-fe. 
ything in sight. \ 

450 T:Now everybody remembers Doctor ^FRANKENSTEIN and $TRANSYLVANI A because 
the ^FRANKENSTEIN mon 



storm gave an extra boost to his electricity and 
The * ANIMAL went $MAD and started destroying 



1000 
2000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
2110 
2120 



E: 

♦CASTLE 

T: 

T: 

T: 

T: 

T: 

T: 

T: 

T: 

T: 

Tz 

T: 
E: 



THE 



^FRANKENSTEIN 



MONSTER 



2130 * FRANK 




2140 
2150 
2 1 60 
2 1 70 
2130 
2 1 90 
2200 
22 1 0 
2220 



T: 
T: 
T: 
T: 
T; 
T: 
T: 
T: 
E: 
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10 C:#HIDINGPLACE=17 
100 U: *NUMBERLINE 
200 *GUESS 

210 U : *ERASEQUEST I ON 
220 PA: 60 
230 POS: 5, 14 

240 T: WHERE DO YOU THINK I'M HIDING? \ 
250 A:#GUESS 

260 J <#GUESS=#HIDINGPLACE> I *FOUNDHIM 

270 P0S:#GUESS,8 

280 T ( #GUESS >#H I D I NGPLACE ) : < 

290 T < #GUESS< #H I D I NGPLACE ) s > 

300 J:*GUESS 

310 Rs 

400 *FOUNDHIM 

410 POS : #H I D I NGPLACE-2 , 2 

420 U: *HURKLE 

430 P0SS5..17 

440 T:YOU FOUND HIM! \ 

460 Es 

480 R: 

600 fcERASEQUEST I ON 
610 P0S:5,14 
620 T : 

630 E: 

640 Rs 

1000 *HURKLE 
1010 T: \ 
1020 T: \ 
1030 Ts \ 
1040 T: \ 
1050 T: \ 
1060 T: 
1070 E: 

1 080 R : 

1100 *NUMBERLINE 
1105 POS: 0,9 

1110 T: ! ! \ I \ 

1115 POSrO, tO 

1120 T: 

1125 POS: O, 11 

1130 T: 5 10 15 20 25 

1140 E: 
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10 C:S>B710=148 

100 POS: 5, 2 INCIDENT page 1 

110 T:HI! WHAT'S YOUR NAME? \ 
120 A:*NAME 
130 POS: 5, 4 

140 T: ARE YOU A GIRL? \ 
150 A: 
160 M:N 

170 CY:*HIM=HIM 

172 CY : *S I BL I NG=BROTHER 

180 CN:*HIM=HER 

182 CN:*SIBLING=SISTER 

200 POS: 5, 6 

210 T: WHAT'S YOUR FAVORITE FLAVOR *NAME? 
220 POS: 10,8 
230 A:*COLOR 
300 POS: 5, 10 

310 T: WHAT ARE YOU MOST AFRAID OF? 
320 POS: 10, 12 
330 A: ^MONSTER 
400 POS: 5 5 14 

410 T:IF YOU HAD A BOTHERSOME LITTLE 
412 T:*SIBLING YOU MIGHT CALL *HIM A 
420 T: LITTLE ?\ 
430 A:*KID 
500 POS: 5, 19 

510 T: TYPE IN A WORD THAT MEANS BIG: 

520 POS: 10,21 

530 A: $GI ANT 

600 C : #RAND0M=?\3 

610 C <#RANDOM=0> : *HOUSE=HOUSE 

620 C ( #RANDOM= 1 ) : $HOUSE=CAB I N 

630 C ( #RAND0M=2 ) : *HOUSE=COTTAGE 

650 C : #RAND0M=?\4 

660 C ( #RANDOM=0 ) : *FQREST=FOREST 
670 C < #RANDOM= 1 ) : *FOREST=WOODS 
680 C ( #RAND0M=2 ) : *FOREST=MOUNTA I NS 
690 C ( #RAND0M=3 ) : *FOREST=H I LLS 
700 C: #RAND0M=?\3 

710 C < #RANDOM=0 ) : *L I TTLE=L I TTLE 

720 C ( #RANDOM= 1 ) : $LI TTLE=SMALL 

730 C ( #RAND0M=2 ) : $LI TTLE=T I NY 

750 C: #RAND0M=?\3 

760 C < #RANDOM=0 ) : *CAPER=CAPER 

770 C < #RANDOM= 1 ) : *C APER= AFF A I R 

780 C < #RAND0M=2 ) : *CAPER= I NC I DENT 

800 *TITLE 

810 LETTERS : LARGE 

820 POS : 1 , 1 

830 T:the 

835 PA: 40 

840 POS: 3, 4 

850 T:*GIANT 

855 PA: 40 

860 POS: 5, 7 

870 T:*MONSTER 

875 PA: 40 

880 POS: 7, 10 

890 T (#RANDQM=0) : CAPER 

892 T < #RANDOM= 1 ) : AFF A I R 

894 T <#RAND0M=2) : INCIDENT 

900 PA: 40 Copyright Atari, Inc. 1983 All rights reserved. 
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900 PA : 40 

930 C:#TEMP0=20 INCIDENT page 

932 SO: 1,2,3,4 

940 U: *MUSIC 

950 PA : 40 

952 LETTERS: SMALL 

954 T:> 

960 POS: 7, 1 

970 T: THE *GIANT *MONSTER *CAPER 
1000 *STORY 
1005 POS: 10, 9 
1010 U: *BOYi 
1015 POS: 5, 14 

1020 T:ONCE UPON A TIME THERE WAS A SLITTLE *KID NAMED *NAME. 

1025 PA: 100 

1040 U: *CLICKHEELS 

1050 U: *CLICKHEELS 

1060 POS: 5, 18 

1070 T: PRESS RETURN. 

1080 As 

1090 POS: 5, IS 

1100 T:*NAME LIVED IN A *LITTLE *CQLOR *HOUSE IN THE SFOREST. 

1120 POS: 16,3 

1 150 U: *HOUSE 

1160 C:#TEMP0=8 

1162 SO: 13, 17,20,25 

1164 U: *MUSIC 

1170 POS: 5, 21 

1180 T: PRESS RETURN. 

1190 A: 

1200 C:S)B710=146 C DARK BACKGROUND 3 

1202 POS: 10, 9 
1204 U:*ERASEBOY 

1206 P0S:7,1 C ERASE TITLE 3 

1208 T: \ 

1210 U:*ERASETEXT 

1220 C:. 96710=144 C VERY DARK BACKGROUND 1 

1230 U:*FIREQN 
1240 POS: 5, 14 

1250 T: AT NIGHT *NAME WOULD LIGHT A FIRE TO KEEP AWAY THE EVIL ^MONSTER. 

1270 POS: 5, 18 

1280 T: PRESS RETURN 

1285 A: 

1290 POS: 5, 18 

1300 T: BUT ONE NIGHT THE WIND BLEW THE FIRE OUT. 
1302 C:#TEMP0=1 
1310 U: *MUSIC 
1320 U: *MUSIC 

1330 POS: 24, 3 C ERASE SMOKE 3 

1340 T: \ 

1350 U:*FLICKER 

1360 POS: 5, 21 

1370 T: PRESS RETURN 

1380 A: 

1390 U:*ERASETEXT 

1400 T: ALONG CAME THE ^MONSTER. 
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1400 T: ALONG CAME THE ^MONSTER. INCIDENT page 3 

1402 PQS:5, 16 

1405 T: (YOU CAN'T SEE IT BECAUSE IT DOESN'T SHOW UP IN THE DARK.) 

1410 P0S:5,20 

1412 C:#TEMP0=14 

1414 S0:4,3,2, 1 

1416 U:*MUSic 

1420 T: PRESS RETURN 

1430 A: 

1435 U: *ERASETEXT 
1440 U:*EAT 
1445 P0S-.5, 14 

1450 T:IT GOBBLED UP THE *HOUSE BECAUSE IT THOUGHT IT WAS A $GI ANT UPSIDEDOWN 

OLOR ICE CREAM CONE. 

1460 P0S:5,20 

1470 T: PRESS RETURN 

1472 A: 

1480 U: *ERASETEXT 
1490 C:#B0YALIVE=?\3 

1500 T(#BOYALIVE) : *NAME GOT OUT JUST IN TIME AND RAN AWAY INTO THE *FOREST. 

1510 T<#BOYALIVE=0) : *NAME HID INSIDE AND THE ^MONSTER ATE *HIM TOO. 

1520 PA: 100 

1550 U:*GETAWAY 

1560 POSs 5, 18 

1570 T: PRESS RETURN 

1580 As 

1590 U:*ERASETEXT 

1600 T:SO DON'T PAINT YOUR SHOUSE *COLOR OR THE ^MONSTER MIGHT GET YOU! 

1620 C:#TEMP0=10 

1622 SO: 1,2,3,4 

1630 U:*MUSIC 

1632 SO: 1 , 3 j, 5, 6 

1640 U: *MUSIC 

1642 S0:3,5,7,8 

1650 U:*MUSIC 

1652 SO: 1 ,2,3,4 

1660 U: *MUSIC 

1890 C:S>B710=148 

1900 E: 

2000 *B0Y1 

2010 T: \ 

2020 T: \ 

2030 T: \ 

2040 T: \ 



050 E: 




2060 *B0Y2 
2070 T: \ 
2080 T: \ 
2090 T: \ 
2100 T: \ 
2110 E: 
2120 *BOY3 
2130 T: \ 
2140 T: \ 
2150 T: \ 
2160 T: \ 
2170 E: 
2180 * HOUSE 
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c 




2180 


*H0USE 

* » ■ »aa# W *mm" Uj 




21 90 


T: 




2200 


T- 

1 a 


\ 


2210 


T: 


\ 

N 


> 2220 


T: 

• • 


\ 


'2230 

«**•- aba "«m" 


T: 


\ 


2240 

MM I Na" 


T: 


\ 


225( ) 

MM* ifc— 1W/ •» 


T: 


\ 


2260 


T: 


\ 


2270 


T: 


\ 


2280 


T: 

• a 


\ 


2290 


E: 

■mm a 




2300 

«*Ma ^m m •«•* 


*BIGWIND0W 




23 10 


T: \ 

la \ 




W X~ \J 


1 a \ 




J— s»* \,» 


• a \ 




2340 


Ts \ 

• M ^ 




2350 

•*m» «m 1 air 


Es 




2360 

■*■ ■ hi mm* 'm 


* D ARKB I GW I N DO W 


2370 


T: \ 




2380 


T: \ 




2390 


Ts \ 




2400 


T: \ 




2410 


E a 




2420 


*L I TTLE WINDOW 


24^0 

a*a* I %m" 


T: \ 




2440 


E: 




2450 

■ ■ ■ • aaav m 


♦DARKL I TTLEW I N 


2460 


T: \ 




2470 


E: 




2480 


*CH0MP 




'2485 


SO: 1 , 2. 


3,4 


2490 


Tz 


\ 


2500 


T: 


\ 


25 IO 


T: 


\ 


2520 


T: 


\ 


2522 
2525 

Am War ■ — V— / 


PA -. 8 

SO: 0 




2530 


E: 




2600 


♦CLICKHEELS 


2610 


POS: 10, 9 




2620 

• ™ ' »— » lPM« *■ 


U: *B0Y1 




2630 


PA: 20 




2 6 40 

■ Wa* * 


POS: 10. 9 




2650 


U: *B0Y3 




2660 


PA: 5 




2670 

•mm W ^ "at" 


POS : 10,9 




^680 


U: *B0Y2 






SO: 31 




2684 

.*•« %m/ \m# r 


PA: 1 




2686 

Ja» W- * \*aS V— J 


SO: 0 




26 90 

•Mm Vmw 7 / 


PA: 12 




2700 

•mm r m *a 


POS: 10, 9 




2710 

»M» • «M '■a 


U: *B0Y3 




2720 

* aMM M 


PA: 5 




2730 

•Mm / W — * 


POS: 10, 9 




2740 


U: *B0Y1 






E: 




2800 


*ERASEBQY 





INCIDENT 



page 
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2800 
2810 
2820 
2830 
2840 
2850 
2900 
2910 
2940 
2942 
2950 
2952 
2956 
2958 
2960 
2962 
2966 
2968 
2970 
2972 
2980 



fcERASEBOY 
Ts \ 
Ti \ 
T: \ 
T: \ 
E: 

♦FIREON 



INCIDENT 



page 5 



U: *LIGHTSON 
S0:4,3,2, 1 
PA: 10 
PQSi24,3 
T: 5)3333 
SOs 1,3,4,5 
PA : 1 0 
POS: 24, 2 
T:3 3 \ 
SO: 1,2,3,4 
PA: 10 
POS: 24, 3 
T:3 33 da 
SO: O 



2990 E: 

3000 * FLICKER 

3010 U: *LIGHTSOFF 

3020 U:*MUSIC 

3030 U: *LIGHTSON 

3040 U:*MUSIC 

3042 U:*MUSIC 

3044 U:*MUSIC 

3050 Us *LIGHTSOFF 

3060 U:*MUSIC 

3062 U:*MUSIC 

3070 U: *LIGHTSQN 

3080 U:* MUSIC 

3090 U: *LIGHTSOFF 

3095 E : 

3100 *L_IGHTSQFF 

3110 P08l21,6 

3112 30:4,5,6,7 

3120 U: * DARKL I TTLE WINDOW 

3122 S0:3,4,7,8 

3 1 30 POS : 2 1 , 8 

3140 U: #D ARKB I GW I NDOW 

3142 S0:0 

3145 E: 

3150 *L IGHTSON 

3160 POS: 21, 6 

3162 S0:4, 5,6,7 

3170 U: *LITTLEWIIMDOW 

3172 S0:3,4,7,S 

3180 POS: 21, 8 

3190 U: *BIGWINDOW 

3 192 SO : O 

3195 E: 

3200 *ERASETEXT 
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1 



5 



3200 *ERASETEXT 



INCIDENT 



page 




3210 


POS: 5, 14 




3220 


T: 


\ 


JL%J 


Ts 


\ 


3230 


T: 


\ 


•3 2 * vJ 


POS: 5, 14 




3240 


E: 




3300 


*EAT 




3310 


POS: 22, 8 




3320 


U: *CH0MP 




3325 


PA: 30 




3330 


POS: 20, 9 




3340 


U: *CH0MP 




3350 


POS: 23, 6 




3360 


U:*CH0MP 


« 


3390 


E: 




3400 


♦GETAWAY 




3410 


POS: 12,9 




3420 


U(#B0Y ALIVE) 


: *B0Y1 


3430 


POS: 24, 3 




3440 


U: *ERASEB0Y 




3450 


POS : 2 1 , 7 




3460 


U: *CHOMP 




3470 


POS: 12,9 




3480 


U (#BOYALI VE) : *MQVEBQY 


3490 


POS: 17,9 




3500 


U: *CHONP 




3510 


POS: 19,8 




3520 


U: *CHOMP 






POS: 11,9 




3540 


U(#BOYALIVE) 


: *|v|aVEBOY 


3550 


P0S:21,5 




3560 


U: *CHQMP 




3570 


POS: 18,7 




3580 


U: *CHOMP 




3590 


POS: 10,9 




3600 


U (#BOYALI VE) : *MOVEBOY 


36 1 0 


POS: 16, 9 




3620 


U: *ERASEBOY 




3630 


POS: 16,7 




3640 


U: *CH0t1P 




3650 


POS: 17,6 




3oo0 


U: *CHOMP 




3670 


POS: 9;, 9 




3680 


U(#BOY ALIVE) 


: *MOVEBQY 


3690 


POS: 16,4 




3700 


U: *ERASEBOY 




3710 


POS: 19,4 




3720 


U: *ERASEBOY 




3730 


POS: 22,5 




3740 


U: *ERASEBOY 




3750 


POS: 16,7 




3760 


U: *ERASEBOY 




3790 


E: 




3800 


*MQVEBOY 
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INCIDENT page 



***** (~*\ s~\ f—\ 

3800 


KnuvEBOY 




j»8 1 0 


I i o> 7-, |~v \ / —r 

U: *BDY ih 




•J'O 1 xL 


t~*i /\ _ cr 

Km : w> 






T • \ 






U; *fc.KRofc.fc?UY 




•J* D *T ' 


1 : \ 




"TQCTA 


us *Jt»uY^. 




•_> D Ji. 


rR! j 




TQ/ A 
w w w 


I : \ 




"TQ Z C 
ODOJ 






7Q7A 


u : *dUY l 




7Q7C 


SO : O 




■38SO 


r— _ 




4000 


*rius ic 




4U 1 u 


■•am I 1 ■ •■■*■» ^ in, ,, , , 

* , j aj *""*'* ^ SHI ^ •*•»» ij MB 






OA* ttTCMDH 
rH! it 1 triKU 






on ■ 1 -4-1 




*T *T \.» 


DA » ttTCMDn 

rR S if I trlKU 






bu : -t-2 , H-o , , 


•+•2 


4U6U 


r~i /\ _ 44. -t- rr r~« r*^ 




/I f"\ ~7 1~\ 


SO: +s^ 5 +2, +1, 


+ 1 


4UoU 


r~i /\ _ 44. t cr iv* #~i 




4U7U 


bU : —4 , — , —x: , 


4 

— 1 


«? 1 uu 


OA, ■ 4+TCMDO 




411U 


CJO m 1 4 4 

bu: *■•* f X f * § 


— 1 


4 1 2U 


**•■, r\ « | "f ft**** tw ■* ft*"*. ■ ft» *"r 

PA: #TEMP0*3 




4130 


S0:0 




4 1 40 


E: 
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INOUT 



20 T-.I'M THINKING OF A GROUP OF WORDS. 
30 T: 

40 T: TYPE A WORD AND I'LL TELL YOU IF YOUR WORD IS IN THE GROUP OR OUT OF IT. 
50 T: 

60 T: FOR EXAMPLE, BED IS IN BUT BAG IS OUT. 
70 T: 

SO T: FIND AS MANY WORDS AS YOU CAN THAT ARE IN THE GROUP. 
90 T: 

100 T: WHEN YOU ARE DONE TYPE DONE AND I WILL TELL YOU WHAT THE GROUP IS. 

110 T: 

120 C:#IN=0 

130 C:#OUT=0 

140 R: 

200 T: 

210 *REPEAT 

220 T: WORD? V 

230 A:*WORD 

240 M: DONE 

250 JY:*END 

260 M:E 

270 JN:*QUT 

280 JY:*IN 

300 *IN 

310 Ts *WORD IS IN. 

320 C: #IN=#IN+1 
330 J:*REPEAT 
400 *OUT 

410 T: *WORD IS OUT. 
420 C:#0UT=#0UT+1 
430 J:*REPEAT 

440 R: 

500 *END 
510 Ts 

520 T: EVERY WORD WITH AN 'E' IN IT IS IN THE GROUP. 
530 T: 
610 T: 

620 T-.YOU GOT #IN IN. 
630 T:YOU GOT #OUT OUT. 
640 E: 
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100 T: WHAT IS A WORD THAT RHYMES WITH FAR? 

110 A:*STAR JINGLE page 1 

120 T: 

130 T: TYPE THE NAME OF A PLACE: 
140 A: $THEWORLD 
150 T: 

160 T: WHAT IS YOUR FAVORITE JEWEL? 
170 A: $DI AMQND 

ISO T: 

190 T:GIVE ME A TWO SYLABBLE VERB: 
200 A: $TW INKLE 
210 T:> 

220 C:#TEMP0=10 
300 U: *TWINK 
310 P0S:2,6 

320 T :*TWINKLE P *TW INKLE LITTLE *STAR 
330 U: *PHRASE1 
340 U: *TWANK 
350 POS: 2 ,9 

360 T:HOW I WONDER WHAT YOU ARE 
370 U: *PHRASE2 
380 U: *TWINK 
390 POS: 2, 12 

400 T:UP ABOVE *THE WORLD SO HIGH 
410 U: *PHRASE3 
420 U: *TWANK 
430 POS: 2, 15 

440 T: LIKE A ^DIAMOND IN THE SKY 
450 U:*PHRASE3 
460 U:*TWINK 
470 POS: 2, 18 

480 T:*T WINKLE, *TW INKLE LITTLE *STAR 
490 U: *PHRASE1 
500 U:*TWANK 
510 POS: 2, 21 

520 T.-HOW I WONDER WHAT YOU ARE 

530 U: *PHRASE2 

540 * TWINKLE 

550 U:*TWINK 

560 PA: 6 

570 U:*TWANK 



SO PA : 8 



590 J: * TWINKLE 



1 000 


*TWINK 


1010 


POS: 5, 2 


1020 


T: 


+ 


■ 


1 030 


E: 


1 1 OO 


*TWANK 


1 1 10 


POS: 5, 2 


1 1 20 


T: * 




* 


1 130 


E: 


1200 


*PHRASE1 


1210 


SO: 13 


1220 


PA:#TEMPO 


1230 


SO : 0 


1240 


PA: 1 


1 250 


SO: 13 


1260 


PA:#TEMPO 


1270 


SO: 20 


1280 


PA:#TEMPO 


1290 


SO : 0 



+ 

# 
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1 290 
1300 
1310 
1320 
1 330 
1340 
1350 
1 360 
1 370 
1380 
1390 
1400 
1410 
1420 
1 500 
1510 
1520 
1530 
1 540 
1550 
1 560 
1570 
1580 
1590 
1600 
1610 
1620 
1 630 
1 640 
1650 
1660 
1670 
1 680 
1690 
1700 
1710 
1 720 
1800 
1810 
1820 
1830 
1840 
1 850 
1 860 
1 870 
1880 
1890 
1900 
1910 
1 920 
1930 
1 940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 



SO: 0 
PA: 1 
SO : 20 
PA:#TEMPO 
SO: 22 

PA:#TEMP0-1 

S0:0 

PA: 1 

SO: 22 

PA:#TEMPO 

SO: 20 

PA:2*#TEMP0 
SO: O 
E: 

*PHRASE2 

SO: 18 
PA:#TEMPO 
SO: O 
PA: 1 
SO: 18 
PA:#TEMPO 
SO: 17 

PA:#TEMP0~1 

S0:0 

PA: 1 

SO: 17 

PA:#TEMPO 

SO: 15 

PA:#TEMP0-1 

S0:0 

PA: 1 

SO: 15 

PA:#TEMPO 

SO: 13 

PA:2*#TEMPQ 
SO: 0 
E: 

*PHRASE3 

SO: 20 

PA:#TEMPO 

SO: 0 

PA: 1 

SO: 20 

PA: #TEMPO 

SO: IS 

PA:#TEMP0-1 
SO : 0 
PA: 1 
SO: 18 
PA:#TEMPO 
SO: 17 

PA: #TEMP0~1 

SO : 0 

PA: 1 

SO: 17 

PA: #TEMPO 

SO: 15 

PA:2*#TEMP0 
SO : 0 
E: 



J INGLE 



page 
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10 C:#0VER=18 KEYDRAW 
20 C:#D0WN=11 
22 POS: 2, 22 

24 T: PRESS ANY ARROW TO MOVE AND 

25 T: ANY OTHER KEY TO CHANGE SHAPE 

26 C:$LETTER= 

30 POS:#OVER,#DOWN 
40 U: * CURSOR 
50 POS:#OVER ? #DOWN 
90 * START 
tQO AK :*CH AR 

101 Ms , , , 

102 JM: *UP, *DQWIM ? *LEFT, BRIGHT 

1 03 C : *LETTER=*CHAR 

104 J:*START 
110 *UP 

1 14 C: #D0WN=#D0WN-1 

116 J:*MOVE 
120 *DOWN 

1 26 C : #DQWN=#DOWN+ 1 

128 J:*MOVE 
130 *LEFT 

136 C : #0 VER=#OVER- 1 

133 J:*MOVE 

140 *RIGHT 

146 C : #0 VER=#OVER+ 1 

200 *MOVE 

210 U:*TRAIL 

220 POS : #OVER „ #DOWN 

230 U:*CURSOR 

240 POS : #OVER , #DOWN 

250 Js*START 

500 * CURSOR 

510 T:+ 

520 E: 

600 * TRAIL 

610 T:*LETTER 

620 E: 
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KEY SHIP 

10 C:#0VER=18 
20 C:#D0WN=11 
22 P0S:2,22 

24 Ts PRESS THE ARROWS TO MOVE THE SHIP 
30 P03s#aVER,#D0WN 
40 Us*SHIP 



50 POS:#OVER ! ,#DOWN 

90 #START 

100 AK: 

110 Hi 9 9 9 

1 1 1 JM: *UP, *DOWN, *LEFT., BRIGHT 

112 J:*START 

113 *UP 

114 C : #DOWN=#DOWN~ 1 
116 Js*MOVE 

120 *DOWN 

126 C : #DOWN=#DOWN+ 1 

128 J:*MOVE 

130 *LEFT 

1 36 C : #OVER=#OVER- 1 

13S J:*MOVE 

140 *RIGHT 

1 46 C s #OVER=#OVER+ 1 

200 *MOVE 

210 Us*ERASE 

220 POS : #0 VER , #DOWN 

230 Us*SHIP 

240 POS s #OVER , #DOWN 

250 J:*START 

500 *SHIP 

510 T: \ 

512 Ts \ 

514 Ts \ 

520 E: 

600 * ERASE 

610 T: \ 

612 T: \ 

614 Ts \ 

620 Es 



Copyright Atari, Inc. 1983 All rights reserved 

72 



2 C:#TRUE~1 LETTERS 
4 C:#FALSE=0 
6 ^REQUEST 

8 T:GIVE ME A WORD 
10 AX : ^LETTERS 

20 T: THESE ARE THE LETTERS IN THE WORD: 
22 C : $F I RSTLETTER= 
30 * REPEAT 

40 U: #GETF I RSTLETTER 
50 T:*F I RSTLETTER \ 
60 C s *LETTERS=*RESTOFLETTERS 
70 J <#MORELETTERS=#TRUE) : *REPEAT 
80 T: 

90 J:* REQUEST 

100 R: 

300 *GETF I RSTLETTER 

310 AX : =$LETTERS 

320 MS: , C SKIP FIRST LETTER AND MATCH ON ANYTHING 1 

330 JN: *NOLETTERSLEFT C THERE WASN'T ANYTHING AFTER FIRST LETTER 3 

331 R: THERE'S MORE THAN ONE LETTER SO WE WILL MATCH ON ALL THOSE LETTERS TC 
THE RIGHT OF THE FIRST LETTER. 

332 MS: BRIGHT 

336 R: NOW THE FIRST LETTER IS TO THE LEFT OF THE REST OF THE LETTERS UNLES 

ALL THE LETTERS ARE THE SAME 

338 R:IN WHICH CASE IT IS ON THE RIGHT. 

340 C : *F I RSTLETTER=$LEFT*R I GHT 

350 C : $RESTOFLETTERS=$MATCH 

352 C : #MORELETTERS=#TRUE 

360 E : 

370 *NOLETTERSLEFT 

380 C: $FI RSTLETTER=$LETTERS 

390 C : $RESTOFLETTERS= 

392 C : #MORELETTERS=#FALSE 

3 9w> E : 
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200 POS: 10,20 
210 Tsl"m out to lunch. 
300 PQSi'2,5 
310 Us *BUNNY 
312 *AGAIN 
320 C:#C0UNTER=0 
330 * LUNCH 
350 U:*EAT 

360 C : #COUNTER=#COUNTER+ 1 
370 J ( #COUNTER< 5 ) : *LUNCH 
380 U:*WIIMK 
382 PA: 20 
390 J:*AGAIN 
400 * BUNNY 
410 T: 
420 T: 
430 T: 
440 T: 
450 T: 
460 T: 
470 T: 
480 T: 
490 T: 
500 T: 
510 T: 
520 E: 
600 * NIBBLE 
620 T:\/\ 
630 PA: 5 
632 SO: 1 
640 T : \ 
642 S0:0 
650 PA: 2 
660 E : 
700 *EAT 
710 POS: 23, 14 
720 U:*NIBBLE 
730 U:*NIBBLE 
740 POS: 1,18 
750 E : 
800 *WINK 
810 POS: 23, 12 
820 T:-\ 
830 PA: 8 
840 T:0\ 
842 PA: 1 
S50 T : 
\ 

860 POS: 1,14 
870 E: 
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MAD CAMP 



page 1 



100 POS: 1 , 2 

110 T: WHAT IS THE NAME OF YOUR CAMP? 
115 POS: 5, 3 
120 A:$CAMP 
130 POS: 1 , 5 

140 T: WHAT IS THE NAME OF YOUR COUNSELOR? 

145 POS: 5, 6 

150 As ^COUNSELOR 

160 POS: 1 , 8 

170 T:GIVE ME A NUMBER BIGGER THAN 2: 
175 POS: 5, 9 
180 A: ^NUMBER 
190 POS: 1,11 

200 T: WHAT IS THE NAME OF YOUR CAMP DIRECTOR? 
205 POS: 5, 13 
210 A: ^DIRECTOR 
220 POS: 1,15 

230 T: NAME A REALLY STRANGE LOOKING ANIMAL: 

240 POS: 5, 16 

250 A:*ANIMAL 

300 LETTERS: LARGE 

3 1 0 POS : 1 1 

320 T: THE 

330 POS: 3,4 



370 


P0S:7 ? 10 


380 


T: chronicles 


390 


SO: 6, 7 


400 


PA: 40 


410 


SO: 4, 5 


420 


PA: 160 


450 


LETTERS: SMALL 


460 


POS: 30, 2 


470 


T: \ 


472 


T: \ 


474 


T: \ 


476 


T: 


478 


T: 


480 


T: 



350 
360 




POSTS, 7 
T : MART I AN 
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510 T: DEAR MARTIAN COMMANDER, MADCAMP page 2 

520 T: 
522 T: 

•530 T: WE HAVE JUST LANDED ON \ 

532 T: PLANET EARTH IN A STRANGE PLACE \ 
534 T: CALLED SCAMP. THERE ARE MANY \ 

540 T s ODD-LOOKING LIFE FORMS HERE, BUT THE STRANGEST OF ALL IS ^COUNSELOR. TH 
S IS BECAUSE \ 

550 T:*COUNSELOR HAS ^NUMBER EARS. 

551 POS: 15, 22 

552 T: PRESS RETURN 

553 A: 

554 T : J 

555 T: THE MOST INTERESTING TIME OF DAY AT *CAMP IS WHAT THE EARTHLINGS \ 
560 Ts CALL "DINNER TIME". YESTERDAY THEY CONSUMED LARGE QUANTITIES OF FRIED * 

NIMAL. LATER A FIENDISH \ 
570 T: MONSTER CALLED *D I RECTOR APPEARED AND SCARED AWAY ALL THE CAMPERS. 
572 T: 

580 Ts TUNE IN TOMORROW FOR THE FURTHER ADVENTURES AT *CAMP. 

690 T: 

692 T: SINCERELY, 
694 T: 
700 T: 
710 T: 
720 T: 

730 T: \ 
800 PA s 900 

810 T: C TO MOVE CURSOR UP SO THE SCREEN WON'T SCROLL WHEN THE PROGRA 

ENDS AND READY IS PRINTED 1 
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5 * START 
10 TsGIVE ME A NUMBERS \ 
20 A:#IN 

30 T:IF YOU GIVE ME #IN 
40 C:#0UT=#IN/2+3 

50 T: THEN I WILL TYPE #OUT 

52 J <#QUT=7) : *GOTIT 
60 T: 

70 T: TRY TO MAKE ME TYPE 7. 

80 J: fcSTART 
100 * GOT IT 
102 SO: 13 
104 PAslO 
106 S0:0 
108 T: 

110 T: CONGRATULATIONS YOU DID IT! 
112 SO: 18 
114 PA: 40 
120 E : 



NUMPATRN 
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1000 T: 
1010 T: 
1020 T: 
030 T: 
1040 Ts 
1050 T: 
1060 T 
1070 T 
1080 T 
1090 T 
1100 T 
1110 T 
1120 T 
1130 T 
1140 T 
1150 T 
1160 T 
1170 T 
1180 T: 
1190 Ts 
1200 T: 



PICTURE 
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RABBIT 

10 RsThis is a riddle program introducing M: and conditionals. 
20 T: 

30 T: Hi , what is the answer to this riddle?\ 
40 T: 

50 U: * BUNNY 
60 T: 

70 T : How do you catch an unique rabbit? 
80 T: 

90 A: * ANSWER 
100 M:Y0U NEEK, YOU NEAK, YOU NIQUE 
110 TY:Wow! You are great. That's right! 
120 TNs No, you neek up on it. 
130 E: 



400 * BUNNY 



410 


T 


420 


T 


430 


T 


440 


T 


450 


T 


460 


T 


470 


T 


4S0 


T 


490 


T 


500 


T 


510 


T 


520 


E: 
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RIDDLES 



10 RsThis program will demonstrate the use o-f Ms JMs ? TY: , TN: ? JY: ? T: and 
A: commands. 
12 T: 

20 T: What lies shivering at the bottom o-f the ocean? \ 
30 As 

40 Ms NERVOUS WRECK 

50 TYs Yes, that's correct. 

60 CYs#SC0RE==l 

70 TN: No, a nervous wreck. 

SO CN: #SC0RE=:0 

90 T: Press Return 

95 A: 

98 Rs 

100 Ts* 

110 T: What is black, white, and red all over? \ 
120 A: 

130 Ms ZEBRA, PAPER 
140 JMs fcZEBRA,, fcPAPER 

150 TNsNo, an embarassed zebra is the correct answer. 
160 J: *NEXT 
200 * ZEBRA 

205 C:#SC0RE=#SC0RE+1 - 

210 Ts You're right an embarassed zebra is black, white and red all over. 
220 J: *NEXT 
260 *PAPER 

270 Ts No, a newspaper is black, white, and READ all over, but it's not RED al 
over . 

272 T: The answer i s an embarassed zebra. 

273 Rs ( 

274 *NEXT 
276 Ts 

275 Ts Do you want to try another riddle? 
280 As 

290 Ms Y 
310 JNs *END 
340 Til 

350 TsWhat do ghosts drink? 

360 A s 

370 Ms GHOUL 

380 CY:#SC0RE=#SC0RE+1 

390 TYs Right! 

400 TNsNo, ghoul ade. 

410 Rs 

500 *END 
510 Ts 

520 Ts That's all -for now -folks. 
530 Ts 

540 Ts You got #SC0RE right. 
%_j O E s 
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RNDNUM 



10 Rs PROGRAM TO GENERATE AND PRINT 
20 R: RANDOM NUMBERS 
30 * AGAIN 

40 R: GENERATE A RANDOM NUMBER 
50 R: AND STORE IT IN VARIABLE #R 
60 Cs#RANDOM=? 

70 R: TYPE THE NUMBER ON THE SCREEN 
80 T:#RANDOM 

90 Rs PAUSE FOR 1 SECOND AND THEN 
100 R:DO IT AGAIN 
110 PA: 60 
120 J: * AGAIN 
130 Es 



Copyright Atari, Inc. 1983 All rights reserved. 

81 



RND STORY 



20 
30 
40 
50 
60 
80 
1 00 
1 10 
120 
130 
140 
ISO 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
340 
500 
510 
520 
530 
540 
550 
560 
570 
600 
610 
620 
630 
640 
650 
660 
670 
700 
710 
720 
730 
740 
750 
760 
770 
800 



C: #C0UNTER=1 

♦REPEAT 

Us tSENTENCE 
C: #C0UNTER=#C0UNTER+1 
J <#C0UNTER<6> : ♦REPEAT 
E: 

♦SENTENCE 
T: THE \ 
U: ♦ADJECTIVE 
T: SWORD \ 
U: ♦ NOUN 
T:*WORD \ 

U: ♦ VERBNEED I NGOB JECT 

T:*WORD \ 

T: THE \ 

U: ♦ADJECTIVE 

T:*WORD \ 

U: ♦ NOUN 



T 
T 
U 
T 
U 
T 
T 
U 
T 
U 
T 



*WORD \ 
AND \ 

♦VERBWITHOUTQBJECT 
*WORD \ 
♦PREPOSITION 
*WORD \ 
THE \ 

♦ADJECTIVE 
*WORD \ 
♦ NOUN 
*WORD. \ 



E: 
♦ NOUN 

C: #R=?\5 

C <#R=0) s *WORD=DOG 
C<#R=1> s*WORD=CAT 
C <#R=2) : *WORD=MOUSE 



*WORD=AARDVARK 
$WORD=BUFFALO 



C <#R=3> 
C(#R=4) 
E: 

♦ADJECTIVE 
C:#R=?\5 

C <#R=0) s $WORD=HAPPY 
C(#R=1) s^WORD=SAD 
C (#R=2) : $WORD= ANGRY 
C (#R=3) : *WORD=UGLY 
C (#R=4) s $WORD=BEAUT I FUL 
Es 

♦ VERBNEED I NGOB JECT 
C: #R=?\5 

C (#R=0) s *WORD=SWALLOWED 
C(#R=1> :$WORD=ATE 

*WORD=SAW 
$WORD=KISSED 
C <#R=4> s *WORD=FOLLOWED 
E: 

♦PREPOSITION 



C(#R=2> 
C <#R=3> 
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RND STORY page 2 

800 *PREPQSITION 
810 C:#R=?\5 
820 C ( #R=0 ) s *WORD=AROUND 
830 C ( #R= 1 ) : *WORD=ON 
840 C < #R=2 ) : $WORD=AT 
850 C ( #R=3 ) : * WORD=UNDER 
860 C ( #R=4 ) : *WQRD=OVER 
870 Es 

900 *VERBWITHOUTOBJECT 
910 C:#R=?\5 
920 ' C (#R=0) : $WQRD= JUMPED 
930 C ( #R= 1 ) : *WORD=D ANCED 
940 C ( #R=2 ) : * WORD=WALKED 
950 C < #R=3 ) : *WORD=SAT 
960 C ( #R=4 ) s *WORD=SLEPT 
970 E: 
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2 C:#TRUE=1 

3 C:#FALSE=0 

5 T:GIVE ME A LIST OF NOTES SEPARATED BY COMMAS: \ 
10 A:*NOTES 

20 T:GIVE ME A TEMPO: \ 

22 A:#TEMPO 

25 C:$LIST=*NOTES 

30 C:*NUMBER=0 

32 U: * MAKE ARRAY 

36 T: HERE'S A RANDOM TUNE WITH THOSE NOTES. 

40 U: *PLAYNOTES 

90 E: 
100 *PLAYNOTES 
120 C:#ITEM=?\#NUMBER 
122 C: $NUMBER=# ITEM 
124 C: $NOTE=NOTE$NUMBER 
126 A:#NOTE=**NOTE 
130 SO:#NOTE 
140 PA:#TEMPO 
160 J:*PLAYNOTES 
300 *GETFIRST 
310 A:=*LIST 
320 MS: ! , 
330 JN:*NQLIST 
340 C: $FI RST=*LEFT 
350 C : $REST=*R I GHT 
352 C:#MORENOTES=#TRUE 
360 E: 
370 *NOLIST 
380 Cr*FIRST« *LIST 
390 C:$REST= 
392 C : #MORENOTES=#F ALSE 
•j>9vj E : 

500 * MAKE ARRAY 

510 U: fcGETFIRST 

520 C : *STR I NG=NOTE$NUMBER 

530 • C : **STR I NG=*F I RST 

532 C:*LIST=*REST 

540 A : #NUMBER=*NUMBER 

550 C : #NUMBER=#NUMBER+ 1 

560 C : *NUMBER=#NUMBER 

570 J (#MORENOTES) : *MAKEARRAY 

5S0 E: 



RNDTUNES 
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RNDWALK 



10 Rs RANDOM TURTLE WALK 
30 GR: CLEAR 
SO GR: GOTO 0,0 

70 T: RANDOM TURTLE WALK 

90 ^NEXTSTEP 
110 GR: GO 2 
130 C:#ANGLE=?\360 
150 GR: TURN # ANGLE 
170 J:*NEXTSTEP 
190 E: 
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ROCKET 

100 C:#D0WN=18 
102 P0S:25,#D0WN+1 
110 Us * ROCKET 
120 C:#C0UNT=10 
130 ^COUNTDOWN 
1 40 POS : 5 , 22~#C0UNT 
150 T:#COUNT 
160 SO:#COUNT 
170 PA: 60 

1 80 C s #COUNT=#COUNT- 1 

190 J (#COUNT>«0) : ^COUNTDOWN 

195 T: BLASTOFF! ! \ 

200 *BLASTOFF 

210 P0S:25,#D0WN 

220 Us BROCKET 

230 C s #DOWN=#DOWN- 1 

240 C s #N0TE=3 1 -#DOWN 

250 SOs#NOTE 

260 J <#DOWN>0) s ^BLASTOFF 

300 *ERASESHIP 

302 POS s 25,1 

310 Ts \ 

320 Ts \ 

330 T s \ 

340 Ts \ 

400 E s 
1000 * ROCKET 
1010 Ts \ 
1020 Ts \ 
1 030 T s \ 
1040 Ts \ 
1050 Ts \ 
1070 Es 
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SAPHIRE page 1 

10 TURTLE OFF 

20 C:#TRUE=1 

22 C:#FALSE=0 

30 U: *DRAWMAZE 

40 Us #PLACETREASURE 

50 GOTO 75,0 

52 TURTLE WHITE 

60 TURTLE ON 

70 T:USE THE JOYSTICK TO 
80 T: FIND THE TREASURE. 
82 Cs#TREASUREFOUND=#FALSE 
90 *TREASURESEARCH 



100 U: * RE AD ANGLE 

110 TURNTO #ANGLE 

120 GR< %J0>0 ):DRAW 2 

130 S0( %ST=1 ) : 13 

140 S0< 7.ST=i >s0 

1 50 U : * TRE ASURECHECK 

1 60 J < #TREASUREFOUND=#TRUE ) s *PART2 

200 J : * TRE ASURESE ARCH 



300 * RE AD ANGLE 

310 C("/.J0=1) : #ANGLE=0 

320 C C/.J0=2> : #ANGLE=180 

330 C < % J 0=4 ) : #ANGLE=270 

340 C (7. J 0=5) : #ANGLE=315 

350 C <7.J0=6> : #ANGLE=225 

360 C < 7. J 0=8) : #ANGLE=90 

370 C (X J 0=9) : #ANGLE=45 

380 C<7-J0=10) s#ANGLE=135 

390 Es 

500 *TREASURECHECK 



510 Rs FIRST WE COMPUTE HOW FAR AWAY THE TREASURE IS. 

511 C:#DX=#TX-7.X 

512 C:#DY=#TY-7.Y 

513 C <#DX<0) : #DX=~#DX 

514 C ( #D Y< 0 ) : #D Y=-#DY 

515 C:#D=#DX+#DY 

516 Rs#D MEASURES HOW FAR AWAY THE TURTLE IS FROM THE TREASURE. 
520 C(#D<6 ) : #TREASUREFOUND=#TRUE 

530 E : 

700 *PLACETREASURE 

710 C:#TX=-14 

720 C:#TY=-10 

730 GOTO #TX,#TY 

732 U: *DRAWTREASURE 

740 E: 

800 *DRAWTREASURE 

810 PEN GOLD 

320 TURNTO-90 ; G03 ; TURN 1 50 5 DRAW4 ; TURN60 ; DRAW4 ; TURN90 ; DRAW 3 5 TURN60 5 DRAW4 5 TUR 
60 ; DRAW3 5 TURN 1 20 3 DRAW6 3 GO-3 

830 PENUP 

840 E: 

1000 tTICKER 

1010 PA: 60 

1020 SO 2 1 

1030 PA: 3 

1040 S0:0 

1 050 PA : 60 

1060 E: 



Copyright Atari, Inc. 1983 All rights reserved. 

87 



1060 E: 

1100 rrrcK 

1110 S0:#B0MB SAPHIRE page 2 

1 1 20 C : #T I MER=#T I MER-+- 1 
1130 C(#TIMER>20) : #B0MB=#B0MB+1 
150 C (#TIMER>20) : #DARK=#DARK- 1 -+-#FLASKFULL 

^1 160 SETPEN < #DARK >— 1 ) : 1 „ 4, #DARK 

1 1 70 SETPEN ( #DARK< 0 ) : 1 „ 0 , 0 
1172 C(#DARK<-2) : #DARK=0 
1 1 80 C ( #T I MER >20 ) : #T I MER=0 
1190 S0:0 
1192 E: 
1210 *DRAWMAZE 
1212 CLEAR 
1214 PEN RED 
1220 SETPEN: 1,4,7 
1230 TURTLE OFF; PEN 1 

1240 GOTO 42 ? 10; TURNTO 90; DRAW 14; TURN90; DRAW 10; TURN -90; DRAW 14; TURN 90; DRAW 
O; TURN 90; DRAW 21; GO -21 

1250 TURN -90; DRAW 5; TURN 90; DRAW 140; TURN 90; DRAW 35; TURN 90; DRAW 7; TURN 90; E 
AW 5; TURN -90; DRAW 7; GO -7 

1260 TURN 90; DRAW 5; TURN -90; DRAW 14; GO -7; TURN 90; DRAW 10; GO -5; TURN 90; DRAW 7 
TURN -90; GO 5; DRAW 10; TURN -90 

1270 DRAW 70; GO -7; TURN -90; DRAW 5; TURN 90; DRAW 14; TURN 90; DRAW 10; GO -20; DRAW 
5; TURN 90; DRAW 7; TURN 90; DRAW 25 

12S0 GO -10; TURN -90; DRAW 14; TURN 90; DRAW 10; TURN 90; DRAW 7; TURN 90; DRAW 5; GO 1 
; DRAW 5; TURN 90; DRAW 21; GO -7 

1290 TURN 90; DRAW 10; GO -5; TURN -90; DRAW 35; TURN 90; GO 5; DRAW -15; TURN 90; DRAW 
; TURN -90; GO 40; DRAW 5; TURN -90 

1300 DRAW 14; TURN -90; DRAW 5; TURN 90; DRAW 7; TURN -90; DRAW 10; TURN -90; DRAW 28; T 

RN 90; DRAW 5; TURN 90; DRAW 7 
dfcl310 TURN -90 ; DRAW 5; TURN 90; DRAW 7; TURN 90; DRAW 5; GO 10; DRAW 5; GO -5; TURN 90; G 
w -7; DRAW 28; TURN 90; DRAW 15 

1320 2 (TURN 90; DRAW 7; TURN -90; DRAW 5); GO 5; TURN -90; DRAW 7; TURN 90; DRAW 10;TUF 
90; DRAW 14; TURN -90; DRAW 5 

1330 TURN -90; DRAW -14; GO 21; DRAW 35; TURN -90; DRAW 5; TURN 90; DRAW 28; TURN 90; DF 

W 10; TURN -90; DRAW 14; TURN -90 

1340 DRAW 15; GO 35; DRAW 5; TURN 90; DRAW 7; GO 21; TURN 90; DRAW 15; TURN 90; DRAW 14; 
URN -90; DRAW 10; GO -5; TURN 90 

1350 DRAW 7; TURN 90; DRAW 5; 2 (DRAW 5; TURN -90; DRAW 7; TURN 90); DRAW -5; GO 10;DRAU 
5; TURN 90; DRAW 7; TURN -90; DRAW 5 

1360 GO -5; TURN 90; GO 7; DRAW 14; TURN 90; DRAW 15; TURN 90; DRAW 14; GO 49; DRAW 14; G 

-42; TURN -90; DRAW 5; TURN -90 
1370 DRAW 14; TURN 90; DRAW 10; TURN 90; DRAW 14; GO -7; TURN -90; DRAW 5; TURN -90;DRP 

7 

1372 2 (DRAW 14; TURN 90; DRAW 10; TURN -90); TURN 180 

1330 DRAW 21; TURN -90; DRAW 10; GO -55; TURN -90; 2 (DRAW 7; TURN -90; DRAW 5; TURN 90) 
GO 7; DRAW 7; GO -56; DRAW 7; TURN 90 

1390 DRAW 10; TURN -90; DRAW 7; TURN 90; GO 45; DRAW -10; TURN 90; DRAW 49; TURN -90;DF 
W 10; GO -5; TURN 90;DRAW 7; TURN 90 

1400 DRAW 10; GO 10; 2 (TURN 90; DRAW 7; TURN -90; DRAW 5); TURN -90; DRAW 7; TURN 90; DF 
W 20; TURN -90; DRAW 14; GO 35 

1410 DRAW -7; TURN 90; GO -20; TURN 90; DRAW 7; TURN 90; DRAW 10; GO -5; TURN 90; DRAW 1 
; TURN 90; DRAW 30; TURN 90; DRAW 140 

1420 TURN 90; DRAW 40; TURN 90; DRAW 7; TURN 90; DRAW 5; GO 5 ; TURN -90; DRAW 7; TURN -9 
; DRAW 5; GO 20; TURN 90; DRAW 14 

1430 TURN 90; DRAW 10; TURN -90; DRAW 21; TURN 90; DRAW 5; TURN -90; DRAW 7; TURN 90;DR 
4^ ^ W 25; TURN -90; DRAW 28; TURN 90 

^^1440 DRAW 10; TURN 90; DRAW 7; TURN -90; DRAW 5; GO —40 ; DRAW 10; GO -5; TURN 90 ; DRAW 7 
TURN 90; GO -30; DRAW 5; TURN 90 

1442 GO -21; DRAW 28; GO 21; DRAW 7; TURN 90; DRAW 10; TURN 90; GO 42; TURN 90; DRAW 5;G 

25; TURN -90; GO 7; DRAW 14 
1450 WALL 1; EDGE HALT 

1460 E: Copyright Atari, Inc, All rights reserved. 

2000 *PART2 88 



SAPHIRE page 3 

2000 *PART2 

2010 QUIT 

2020 POSs 10,4 

^^2030 T : CONGR ATULAT I ONS ! 

2040 Cs#TEMP0=8 

2050 SO: 13 

2060 U: * FANFARE 

2250 POS: 5, 7 

2260 TsYOU FOUND THE TREASURE CHEST. 

2270 POSs 5,10 

2280 Cs#TEMP0=*9 

2282 SO: 15 

2284 Us ^FANFARE 

2290 T: BUT THE CHEST IS EMPTY. 

2300 POSs 5, 13 

2310 Cs#TEMP0=10 

2312 SO: 17 

2314 Us ^FANFARE 

2320 T: EXCEPT FOR A SMALL FLASK . . . 

2330 POSs 5 5 16 

2340 Cs#TEMPO=ll 

2342 SO: 18 

2344 Us *FANFARE 

2350 TsAND A NOTE WHICH SAYS . . . 

2360 Cs#TEMP0=12 

2362 SO s 20 

2364 Us fcFANFARE 

2410 Tt> 

A2420 T: THE TREASURE OF THE BLUE SAPHIRE IS WELL PROTECTED. 

W2422 Us STICKER 

2424 T: 

2426 T: BY OPENING THIS CHEST YOU HAVE STARTED A TIME BOMB. 

2430 Us*TICKER 

2440 Ts 

2450 Ts BE SURE YOU GET OUT BEFORE IT EXPLODES. 

2460 Us*TICKER 

2470 T s 

2480 Ts THE BLUE SAPHIRE IS HIDDEN AT THE END OF A LONG DEADEND PASSAGE. 

2490 Us*TICKER 

2500 T s 

2510 T: YOU CAN SEE THE SAPHIRE ANYTIME BY PRESSING "P" TO DRINK THE POTION, 

2520 Us*TICKER 

2530 Ts 

2540 Ts BUT BEWARE ! ! THE POTION WILL MAKE YOU GRADUALLY GO BLIND. 

2550 Us*TICKER 

2560 Ts 

2570 Ts GOOD LUCK! 



» 



V 
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SAPHIRE page 4 

2570 T: GOOD LUCK! 

2572 C:#FLASKFULL=#TRUE 

2574 C : #SAPH I REFOUND=#F ALSE 

2576 C:#OUT=#FALSE 

2580 U i STICKER 

2582 Cs#HIDINGPLACE=?\3 

2534 C <#HIDINGPLACE=0) : #SAPHX=3 

2586 C (#HIDINGPLACE=0> : #SAPHY=-18 

2590 U:*TICKER 

2592 C ( #H I D I NGPLACE= 1 ) s #SAPHX=-3 1 

2594 C ( #H I D I NGPL ACE= 1 ) : #SAPH Y=42 

2596 C <#HIDINGPLACE=2> s #SAPHX=66 

2598 C ( #H I D I NGPLACE=2 ) : #SAPHY=— 23 

2600 U: STICKER 

2602 C:#B0MB=1 

2604 C:#TIMER=0 

2606 C:#DARK=7 

2608 Us *DRAWMAZE 

2610 U : *PLACETREASURE 

2612 PEN 1 

2620 Cz #RAND0MWALL»?\3 

2622 BR (#RANDOMWALL< >0> s GOTO 35, 40; TURNTO 90; DRAW 7 

2624 GR < #R ANDQMWALLX > 1 ) s GOTO -35 ,15; NORTH 5 DRAW 5 

2626 GR <#RANDOM WALL < >2> s GOTO -70, 35; TURMTO 90; DRAW 7 

2630 PEN UP 

2640 GOTO #TX ? #TY$ TURTLE ON 

2650 * SAPH I RESEARCH 

2655 U:*READANGLE 

2660 TURNTO #ANGLE 

2665 GR <%J0>0) s DRAW 2 

2670 U < #FL ASKFULL ) 5 *PQTIONCHECK 

2675 U<#SAPHIREFOUND*#FALSE) : # SAPH I RECMECK 

2680 U: *OUTCHECK 

2685 U:*TICK 

2688 J (#B0MB>31 ) : ^EXPLODE 

2690 J (#OUT) s *END 

2695 J: *SAPH I RESEARCH 

2700 *POTIONCHECK 

2710 AKC/.K): 

2720 MsP 

2730 EN: 

2740 C 2 #FL ASKFULL=#FLASE 

2750 Cs#TURX*%X C STORE THE CURRENT TURTLE POSITION 1 

2752 C5#TURY="/.Y 

754 SETPENs 3 5 7, 2 

760 TURTLE OFF? GOTO #SAPHX 9 #SAPHY ; PEN 3; TURNTO 45; 4(DRAW 2;TURN 90); PEN 
P; GOTO #TURX„ #TURY; TURTLE ON 

2770 E: 

2800 *SAPH I RECHECK 

2810 C: #DX=#SAPHX-7-X 

2820 C : #DY=#SAPHY-7.Y 

2830 C(#DX<0) s#DX=-#DX 

2840 C ( #D Y< 0 ) : #DY=-#DY 

2850 C: #D=#DX+#DY 

2860 E <#D>2 ) : 

2870 C : #SAPH I REFOUND=#TRUE 

2830 GOTO #SAPHX,#SAPHY; PEN ERASE? TURNTO 45; 4 (DRAW 2; TURN 90); PEN UP 

2890 TsYOU GOT IT! 

2900 SO: 30 Copyright Atari, Inc. 1983 All rights reserved. 

2910 PA 2 20 

2920 SOsO 

2930 E: 

2950 *OUTCHECK 
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2950 
960 
2962 
2970 
3000 
3010 
3020 
3030 
3032 
3040 
3042 
3050 
3052 
3054 
3060 
3070 
3080 
3 1 00 
3110 
3 1 20 
3900 
4000 
4005 
4010 
4012 
4014 
4020 
4022 
4024 
4030 
4032 
4034 
4040 
4042 
4044 
4050 
4052 
4054 
4060 
4062 
4064 
4070 
4072 
4074 
4080 
4082 
40S4 
4090 
4092 
4094 
4 1 00 
4 1 02 
4104 
4110 
4112 
4114 
4116 
4 1 20 
4 1 30 
5000 



SAPHIRE 

*0UTCHECK 

C <XX>75) : #0UT»#TRUE 
C(7.X< -75) :#0UT=#TRUE 
E: 
♦ END 
QUIT 
T: 

T (#BAPHIREF0UND> : CONGRATULATIONS ! 

PA: 30 

T: 

C: #LEFT= <32-#B0MB> /6 

T: YOU GOT OUT #LEFT MINUTEX 

T <#LEFT< >1 ) :S\ 

T: BEFORE THE BOMB WOULD HAVE GONE OFF! 
T: 

T <#SAPHIREFOUND=#FALSE) : BUT YOU DIDN'T GET THE SAPHIRE. 
PA: 30 
SO: 22 

C:#TENP0=10 
Us*FANFARE 
E: 

♦EXPLODE 
CLEAR 

BACKGROUND BLACK 
SO: 1,2,3,4 
PA: 2 

BACKGROUND GRAY 
SO: +1 , 4-1 , +1 , +1 
PA : 2 

BACKGROUND SILVER 
SO: +1 , +1 , +1 , +1 
PA:2 

BACKGROUND YELLOW 
SO: +1 , +1 , +1 , 4-1 

PA: 2 

BACKGROUND GOLD 
SO: +1 , ■+* 1 , 1 , -4-1 
PA: 2 

BACKGROUND ORANGE 
SO: +1 ,+1,4-1, 4-1 
PA: 2 

BACKGROUND PINK 
SO: +l,+l 9 +l f +1 
PA: 2 

BACKGROUND RED 
SO: +1, +1,, +1,4.1 

PA: 2 

BACKGROUND PURPLE 
SO :•+■!, +1,+1,+1 
PA: 2 

BACKGROUND BLUE 
SO: +1 , +1 , +1 „ +1 
PA: 2 
QUIT 

SO: +JL „ 4-1 „ 4-1 , +1 
PA: 1 

POS: 5, 5 

T: BETTER LUCK NEXT TINE 
^PANFARE Copyright Atari, Inc. 1983 All rights reserved. 
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SAPHIRE 



page 6 



soon 


IkFAMFAPP 


SO 1 ("\ 


□ U m — 


ji^so^o 

v-> L' ^ lj 
W^ t i~\ T /"\ 


r H 1 jLfltfF I fc.rir U 
wU 5—1 


w^.'*r\.' 




BE cr f~\ 


wU 2^1 




rHSff I fcLPir U — 1 


SOTO 




w N.' fcl V 


PA- t 


5090 


SO -4-1 

WW a » X 


5100 


PA- #TFMPn 


51 lO 


SO - -f-4 


"5 1 T>0 


P M • ^ Tff 1 ELI IP U 


■5 1 "TO 






rH : it 1 fcirlr U 


S 1 SO 


Qn » -x. A 


■S 1 AO 


da m iiTrMDn 


w 1 /U 


bu : •+• 3 


5 1 80 


PA:4*#TEh-P0 


5190 


SO: 0 


5200 


E: 
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20 Cs#C0UNTER=l SEQUENCE 
30 C:#NUMBER=2 
40 POS: 2, 5 

50 T: WHAT COMES NEXT IN THIS SEQUENCE? 
60 T: 

70 T:#NUMBER \ 
tOO *LOOP 

110 C : #COUNTER=#COUNTER+ 1 

1 20 C s #NUMBER=#NUMBER+3 

180 Ts#NUNBER \ 

190 J <#C0UNTER<5) : *LOOP 

200 * RESPONSE 

210 C: #NEXT=#NUMBER+3 

220 A: #ANSWER 

230 T: 

240 T(#ANSWER=#NEXT) : THAT'S RIGHT! 

250 T <#ANSWER< >#NEXT) : NO, THE NEXT NUMBER IS #NEXT. 
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10 *TITLE 

20 LETTERS: LARGE SPHINX page 1 

22 S0:ll,7,14 

30 PQS:7,2 

32 Ts THE 

40 POS: 5, 4 

42 Ts TREASURE 

50 POS: 6, 6 

52 T:QF THE 

60 POS: 6, 8 

62 T: SPHINX 

70 PA: 40 

SO SO: -1 = , = 

32 PA: 120 

90 LETTERS: SMALL 

100 POS: 4, 8 

110 T: WHAT IS YOUR NAME, ADVENTURER? 

120 P0S:8,12 

130 A: $NAME 

ISO R: 

190 * INTRO 

200 T:3- 

210 U:*EGYPT 

220 POS: 5, 12 

230 T:*NAME„ YOU HAVE TRAVELED FAR IN AN ATTEMPT TO RETRIEVE THE FABLED SOLE 
N SCEPTER OF THE PHAROH. 

240 POS: 5, 17 

250 T:YOU HAVE DISCOVERED A SMALL TUNNEL LEADING INTO THE SIDE OF THE SPHIN> 

260 POS: 5, 20 

270 T: PRESS RETURN TO GO THROUGH THE TUNNEL- \ 

2S0 A: 

290 R: 

300 *ANTEROOM 

310 T:> 

312 U: *ANTEROOMVIEW 

320 POS: 6, 12 

330 T:YOU ARE IN A SMALL CHAMBER. 

340 POS: 2, 15 

350 T: THREE TUNNELS LEAD OUT OF THE ROOM. 

360 POS: 5,18 

370 T:WILL YOU TAKE THE NARROW TUNNEL, THE TALL TUNNEL, OR THE WIDE ONE? 

330 POS: 10,22 

390 A : 

400 M : NARROW , TALL , W I DE 

410 JM: *OUTSIDE, *SNAKEPIT, *RI DDLEROOM 

420 J: *ANTEROOM 

450 R: 

500 *SNAKEPIT 

502 SO: 1,2,3 

510 T:> 

512 T: 

520 U: *SNAKEPITVIEW 

530 * WAGTAIL 

540 PA: 5 

542 POS: 25, 14 

544 T: ! 

546 SO : 2 , 5 , 6 

550 PA: 5 
552 POS: 25, 14 

554 T:\ 
556 SO: 1,3,4 

560 Js*WAGTAIL 

590 R: 

600 *OUTSIDE Copyright Atari, Inc. 1^983 All rights reserved. 
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page 




600 * OUTS IDE 
610 T:> 
620 U:*EGYPT 
630 POS: 5, 12 

640 TsYOU MADE IT BACK OUTSIDE, $NAME. 

650 POS: 2, 15 

660 TsYOU HAVE SURVIVED YOUR ADVENTURE 

670 Es 
690 R: 



700 *RIDDLEROOM 
710 



: > 



POS 



i 5 2 



712 

720 T:YOU ARE IN THE PMARQH'S ROOM. YOU GRAB THE SECPTER, BUT THE SPHINX C 
STS A SPELL ON YOU. 



722 
724 
728 
730 



Y 




7-—r *—\ 

734 

738 

740 

742 

744 

748 

750 
EE LEGS 

752 

754 

758 

760 

762 

7TO 

778 

780 

782 

790 

800 

8 1 0 

820 

822 

830 
LKS ON 

840 

842 

844 

850 

860 

870 

880 

890 

900 



SO: 5, 9 
PA: 120 
POS: 5, 6 

T:YOU HEAR A DEEP VOICE THAT SOUNDS LIKE IT IS COMING FROM INSIDE YOU E 

SO: 4;, 8 
PA: 130 
P0S:5 ? 10 

T: ANSWER ME THIS RIDDLE OR YOU WILL DIE I 
SO: 3, 7 
PA: 140 
POS: 5, 13 

T : WHAT WALKS ON FOUR LEGS IN THE MORNING, ON TWO LEGS AT MIDDAY, AND Th 
IN THE EVENING? 
SO: 2, 6 
PA: 150 
POS: 5, 17 
T:YOU HAVE 
SO: 1 , 5 
PA : 300 
POS : 5 , 20 
T:NOW WHAT 
SO: O 
A: 

M: MAN, PERSON 
JN: *SNAKEPIT 
T: > 



cr 



SECONDS TO THINK OF THE ANSWER. 



IS THE ANSWER? \ 



POS: 5, 7 

Ts CORRECT ! AS A CHILD A MAN CRAWLS ON ARMS AND LEGS 
2 LEGS, \ 

T: WHILE AS AN OLD MAN HE NEEDS A THIRD LEG, A CANE. 
POS : 5 , 15 
PA: 100 

T: PRESS RETURN TO RETURN TO THE ANTEROOM. 
A: 

J: *ANTEROOM 

E: 

♦EGYPT 
T: 



AS AN ADULT HE t*i 
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page 3 





900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1200 
1204 
1208 
1210 
1220 
1 230 
1240 
1250 
1260 
1270 
1280 
1290 
1 500 
1510 
1520 
1530 
1 540 
1550 
1560 
1570 
1580 
1590 
1 600 
1610 
1 620 
1630 
1640 
1650 
1660 



T: 
T: 

T: 
T: 
T: 



/ 



\ 



/\ 



/\ 



— \ 



\ 



\ 



/ 



\ 



/ 



T: 
T: 

T: ! 

T: 
Es 

* ANTERQOMV I EW 
T: 
T: 
T: 
Ts 
T: 
T: 
T: 
T: 
T: 
T: 
E: 

*SNAKEPITVIEW 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
E 



/\/\/\ 

i 
t 



\/ 



. -\ 



\/- 
/-\. 

i 
i 

\ 



YOU DIE A SLOW 
DEATH 
BY POISON 
IN THE SNAKEPIT 



! 



/\ 



\ 



\ 



— _ 



\ 
/ 



-\ f- 
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10 
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C:#0VER=18 
C:#D0WN=11 
POS: 2, 22 



STIKSHIP 



24 T:USE THE JOYSTICK TO FLY THE SHIP. 
30 POS:#OVER,#DOWN 
40 Us *SHIP 

50 POS:#OVER,#DOWN 

90 *START 

100 J (%J0«0) s * START 

110 C<"/.J0=1) :#D0WN==#D0WN~1 

120 C(%JO»2) : #D0WN=#D0WN+1 

130 C <7.J0=4) 5 #0VER=#0VER~1 

140 C <"/.J0=8> : #0VER=#0VER+1 

150 C(7.J0=5) s#DOWN=#DOWN-l 

152 C<"/.J0=5) :#0VER=#0VER-1 

160 C (7. J 0=6) : #D0WN=#D0WN+1 

1 62 C ( 7. J0=6 ) 2 #0VER=#0VER- 1 

170 C (%J0=9) : #0VER=#QVER+1 

172 C ( %J0-9 ) : #DOWN=#DOWN- 1 

ISO C(7.J0=10) :#D0WN=#D0WN+1 

182 C (7.J0-10) : #0VER=#0VER+1 

200 *DOIT 

210 U:*ERASE 

220 POS : #OVER , #DOWN 

230 U:*SHIP 

240 POS : #OVER , #DOWN 

250 J:*START 

500 *SHIP 

510 Ts\ 

512 T:\ 

514 T: 



\ 



520 
600 
610 
612 
614 
620 



E: 

*ERASE 



T: 
T: 
Ts 
E: 



\ 
\ 
\ 
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STRGUESS 

C:#MYNUMBER=87 



*GUESS 

8 T: 

9 T: 

10 T: GUESS MY NUMBER: \ 

20 A:#IN 

22 T: 

30 T: THE MORE STARS I TYPE THE FURTHER AWAY YOU ARE 

40 J < #MYNUMBER=# IN): *GQT I T 

50 C : #D I FFERENCE=#MYNUMBER-# I N 

60 *CLUE 

62 Ts*\ 

64 C: #DIFFERENCE=#DIFFERENCE/2 

66 J < #D I FFERENCE< >0) : *CLUE 

70 J:*GUESS 

SO R: 

100 *GOTIT 

102 SO: 13 

104 PA: 10 

1 06 SO : O 

108 T: 

110 T: CONGRATULATIONS YOU DID IT! 

112 SO: 18 

114 PA: 40 

120 E: 
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SUGAR 



page 1 



90 *FIRSTCLUE 

100 T : WHAT IS ROUND ON THE TOP AND POINTED ON THE BOTTOM? \ 

120 A:*GUESS 

130 M-.CONE 

140 JY:*RIGHT 

150 TcNO, NOT $GUESS. 

155 *SECONDCLUE 

160 T: IT'S ALSO SOFT. 

170 T: WHAT IS IT? \ 

1 SO A : 

190 M:CONE 

200 J Y: *RIGHT 

210 T: THAT'S NOT IT EITHER. 

215 *THIRDCLUE 

220, T:IT ? S SOMETHING COLD AND CREAMY. 

230 T.-WHAT IS IT? \ 

240 A: 

250 M:CONE 

260 JYs BRIGHT 

265 *FOURTHCLUE 

270 T:NO. IT'S SOMETHING GOOD TO EAT. 

280 T: WHAT IS IT? \ 

290 A: 

300 M:CONE 

310 JY:*RIGHT 

320 T:NO! ! 

322 SO: 1,2,3 

325 PA: 100 

328 SO : O 

330 J:*END 

340 R: 

400 *RIGHT 

402 T : CONGR ATULAT I ONS ! 

404 T : 

406 T: YOU'RE RIGHT. 

410 SO: 13 

420 PA: 8 

430 SO: 18 

440 PA: 64 

450 S0:0 

500 *END 

505 T:> 

510 U:*CONE 



520 
530 
540 



E: 



T: 
T: 



IT"* S 



AN ICE CREAM CONE. 



600 R: 
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SUGAR page 2 



600 


Rj 






1 ooo 


*CQNE 




1 0 1 0 


T: 




1020 


T: 




1 030 


Ts 


/" \ 




T: 


1 1 

■ ■ 

• i 


X V vJ S. 1 


T: 


\ / 


1 DAD 


Ts / 


m m \ / jp \ 


1 070 

X*>J f K ~' 


Ts 


i 

! i ■ 


/+ \ 
m m m / • V ■( 


X vov 


T: 


i : . 




x vir SI 


T: 


i \. 


■ 1 1 »' | 


1 X V/vJ 


T: 


, i 

1 m 


/ \ \ \ \ \ \ / 1 


1 1 1 A 
X X X S.' 


T: 




! /////// 


1 1 Ti 
X 1 x-^J 


Ts 






i ir^o 


T 




///// 

W # w w # 


1 140 

X X ~T\.' 


Ti 




WW 


X X vJ\.' 


Ts 


/ / / 
/ / / 


1160 


T 


m 
* 


\\ 


1 170 


Ts 


/ 


1 1 80 


El S 
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I I I I t~f k. J. X-' 



• I 1 1 



110 R: 



TALE page 1 

120 Rs This is a mad lib story, using string-variables to store answers to be 
sed later in the story. 




130 LETTERS: LARGE 
140 T: 
150 Ts 

160 T: A Km" « story 
170 PA: 15<? B 
172 LETTERS: SMALL 
180 *QUESTI0NS 




190 


T:Type in your answers for 


the following 


200 


T: 


A person's name? \ 




210 


A: 


$NAME 




220 


T: 


A single word description of a person? 


230 


A: 


$L00K 




240 


T: 


Hair color? \ 




250 


A: 


*HAIR 




260 


T: 


Favorite color? \ 




270 


A: 


*C0L0R 


* 


280 


T: 


A sign of the Zodiac? 


\ 


290 


A: 


*Z0D 




300 


T: 


A piece of furniture? 


\ 


310 


A: 


*CHAIR 




320 


T: 


Something soft? \ 




330 


A: 


*S0FT 




340 


T: 


A favorite food? \ 




350 


A: 


*F00D 




360 


T: 


Something to sleep on? 


\ 


370 


A: 


*BED 




380 


T: 


A favorite animal? \ 




390 


A: 


*BEAR 




392 


C: 


*PLURAL=S 




394 


C: 


*BEARS=*BEARi*PLURAL 




400 


Us 


*ST0RY 




410 


E: 






420 


*5T0RY 




430 


T:> 






440 LETTERS: LARGE 

450 P0S:5 ? 5 

480 T:$NAME 

490 PA: 200 

500 LETTERS: SMALL 

510 T: This $NAME is a real $L00K doll. Like her hair hangs down to her w 

ist. A natural-born $HAIR, with \ 
520 T:marble-$CGL0R eyes. But kooky? Man, this chick is way out!- 
530 T: 

540 T: Like the time she breaks into somebody's house. Just for kicks, she 

says. She's a $Z0D., so always \ 

550 Tsshe gets the good breaks. Nobody's on the scene, so the kid doesn't get 
busted by the cops right away. 

560 T: 

570 T: This $NAME wanders through the house. First she grabs a big carved 

$CHAIR then another one all $S0FT \ 

580 T:soft. But the third $CHAIR is just right. She flops down in it, and cr 
sh ! The third $CHAIR comes apart. \ 
590 T:Does that make $NAME blow the scene? Not her! ! ! 
592 T: 



600 T: 1 ,1 M J\ 
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600 Ts jum** 

610 A: 
620 Ts3- 

650 T: She begins to mess with some chow next 



TALE 



page 2 



ot her! She messes around, \ 



Does our girl $NAME c 




660 Ts tasting everyone's $F00D. 
670 T: 

680 T: The biggest bowl of $F00D is too hot. The next-biggest bowl is toe 

cold. So what does she want? \ 

690 T: Naturally, the *F00D in the third bowl." And being a real slob type, *N 
ME slurps it all down. 

So she cases the bedrooms next. The big $BED is too long. The midci 
$BED is too wide. But— -\ 
the third $BED looks just right -for this dumb dame. 

She crawls into it. In a split sec, she's in — you guessed it — Snor 
Tromp, tramp, tromp ! The\ 
•family's coming back. 

Big Daddy and Fat Momma stand there in their fur coats, their eyebs 
Is bulging out. Chunky Brother \ 
800 T:stands there in his fur coat, yelling. 
810 T: 

820 Ts Then $NAME opens her marbl e-*C0L0R eyes and sees the 

ms. She begins to scream. 
830 T 

"•BEARS!* 1 $NAME is screaming. "Save me! Save me!" 



700 


Ts 


710 


Ts 


e-si zee 


720 


Ts 


722 


Ts 


730 


Ts 


740 


As 


750 


Ts 


760 


Ts 


svi lie. 


770 


Ts 


780 


Ts 


790 


Ts 



furry fc 



> 



"Throw her out!" yells Fat Momma 
"Beat it, $HA I R ! " shouts Big Daddy. 

"Hold it, folks! Maybe this chick's just a mixed-up kid," coos Chu 




840 T 
842 T 
850 T 
860 A 
870 T 
880 T 
890 T 
900 T 
910 T 
920 T 
ky Brother. 
922 T 
930 T 
940 A 
950 T 
960 T 

970 Ts "Oh, yeah?" screams Fat Momma. "Then I'll just straighten her out 

ood ! " So Fat Momma kicks her out \ 
980 Tsthe door. 
990 Ts 

1000 Ts Even a dame as dumb as $NAME gets the message 

taking her out every night, she \ 
1010 Ts changes her life-style to good-as-gold. 
1020 Ts 

1030 Ts And knocks off house breaking forevermore. 

1040 Ts 
1050 Ts 0~ 
1060 Ts 
1070 Es 



With Chunky Brother 



THE END 

Copyright Atari, Inc. 1983 All rights reserved. 

102 



